Ответы
Ответ дал:
0
Var
x, y, z, k: integer;
Begin
writeln('Введите двухзначное число');
read(x);
y:=x div 10;
z:=x mod 10 ;
k:=y+z;
writeln('Сумма цифр: ',k);
End.
Вас заинтересует
2 года назад
2 года назад
8 лет назад