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

Question

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

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

Answer 1

Var a,s:integer;
begin
write('a = ');
readln(a);
s:=(a div 10)+(a mod 10);
writeln('s = ',s);
end.

Пример:
a = 52
s = 7

Answer 2

Program prog;
Uses crt;
var a: integer;

begin
clrscr;

write('a = ');
readln(a);

if ((abs(a)>9) and (a<100)) then<br>
writeln('Sum = ', abs(a mod 10) + abs(a div 10))
else
writeln('Error');
end.