Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.

Question

Информатика

Устинья

21 ноября, 12:25

Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.

+3

Ответы (1)

Знаешь ответ?

Самона · Answer 1

Program G;

Uses Crt;

Var summ, x, m, back: integer;

Begin

ClrScr;

Writeln ('Введите натуральное число.');

Readln (x);

Summ:=0;

Back:=x;

While x>0 do

Begin

m:=x mod 10;

x:=x div 10;

summ:=summ+m;

End;

If summ=10 then Writeln ('Сумма цифр числа ', back, ' равна 10.')

Else Writeln ('Сумма чисел числа ', back, ' не равна 10.');

Readln;

End.