Составьте программу на вычисление суммы числа, цикл с предусловием

Составьте программу на вычисление суммы числа, цикл с предусловием
Гость
Ответ(ы) на вопрос:
Гость
var s, n: integer; begin readln(n); s:=0; while n > 0 do begin s:=s + n mod 10; n:=n div 10; end; writeln(s); end.
Гость
program Znanija; uses crt; var a,b : integer; begin readln(b); a:=0; while b > 0 do begin a:=a + b mod 10; b:=b div 10; end: writeln('Ответ',a ); end
Не нашли ответ?
Ответить на вопрос
Похожие вопросы