Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
