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

Вопрос школьника по предмету Информатика

Составьте программу решения следующей задачи:

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

Ответ учителя по предмету Информатика

Program prog;

Uses crt;

var a: integer;

begin

clrscr;

write(‘a = ‘);

readln(a);

if ((abs(a)>9) and (a<100)) then

writeln(‘Sum = ‘, abs(a mod 10) + abs(a div 10))

else

writeln(‘Error’);

end.