Question

дано натуральное число n верно ли что сумма его цифр больше m а само число окачивается на 5

Answer 1

Ответ:

вот

Объяснение:

ses crt;

var a,x:integer;

i,s:integer;

begin

writeln('введите целое число');

readln( a ); x:=a;

s:=0;

while ( x<>0 ) do

begin

  s := s + (x mod 10);

  x := x div 10;

end;

writeln( 'Сумма цифр числа ',a,' = ', s );

if s=10 then

 writeln('Верно')

 else

 writeln('Неверно');

end.