Question

Написать в программе Паскаль:
Дано целое число. Если оно двузначное, найти сумму его цифр.

Answer 1

Program zadanie;
Var a,b:integer;
Begin
 Writeln('Введите целое число');
 Readln(a);
 If (a div 10>0) or (a div 10<0) Then
 begin
 b:=a div 10;
 a:=a mod 10;
 a:=a+b;
 Writeln('Сумма=',a);
 end;
End.