Написать в программе Паскаль:

Дано целое число. Если оно двузначное, найти сумму его цифр.

Question

Информатика

Вовуша

5 октября, 09:01

Написать в программе Паскаль:

Дано целое число. Если оно двузначное, найти сумму его цифр.

+2

Ответы (1)

Знаете ответ на вопрос?

Хрися · 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.

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

Написать в программе Паскаль:

Дано целое число. Если оно двузначное, найти сумму его цифр.