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

264

467

Посмотреть ответы 2

Ответы на вопрос:

Данилкамастре

Информатика

4,6(4 оценок)

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.