Question

Как решить такую задачу в паскале?? Дано двузначное число. Найти сумму его цифр.

Answer 1

Program cymma;
var  a, b, c: real;
begin  writeln('Введите первую цифру числа');  read(a);  writeln('Введите вторую цифру числа');  readln(b);  c := a + b;  writeln('Сумма цифр числа =');  writeln(c);end.

Answer 2

Var a,b,n:integer;
begin
readln(n);
a:=n mod 10;
b:=n div 10;
writeln(a+b);
end.