Question

Составьте программу решения следующей задачи:С клавиатуры вводится двузначное число a. Найти сумму его цифр.

Answer 1

Program p1;
var a:byte;
Begin
Write('Введите а, а=');
Readln(a);
Writeln('Сумма цифр = ', a div 10 + a mod 10);
End.