Question

Написать программу для паскаля. Сумма цифр двузначного числа a

Answer 1

program summa;
var a,b : integer;
begin
 write('Введите двухзначное число');
 readln(a);
 b:= a div 10;
 a:= a mod 10;
 writeln('сумма цифр этого числа равна: ',b+a);
end.