Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.