Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.
Написать в программе Паскаль:
Дано целое число. Если оно двузначное, найти сумму его цифр.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы