Question

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

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

Answer 1

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.