Фото №4 ! Нужна помощь срочно ! У нас программа Pascal ABC ! Не игнорировать. !

Question

Фото №4 ! Нужна помощь срочно ! У нас программа Pascal ABC ! Не игнорировать. !

---

Answer 1

var N,N1,s:integer;

BEGIN

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

readln(N);

N1:=N;

while N<>0 do begin

s:=s+N mod 10;

N:=N div 10;

end;

writeln('Сумма цифр числа ',N1,' равна ',s,'.');

end.

Comments

Спасибо !!!