Var
x, y, z, k: integer;
Begin
writeln('Введите двухзначное число');
read(x);
y:=x div 10;
z:=x mod 10 ;
k:=y+z;
writeln('Сумма цифр: ',k);
End.
образуются пары родителей:
655-861 (1 реб) подходит
323-354 (1 реб) не подходит
293-238 (1 реб) не подходит
654-960 (2 реб) подходит
941-365 (2реб) не подходит
1+2=3
Объем , цвет(возможен ) , форма
0.25 Мбайт = 0.25 * 1024 * 1024 байт = 262144.0 байт