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.
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.