В следующем фрагменте k и S - переменные целого типа:

Readln (k) ;

S:=0;

While K>0 Do

Begin

S:=S+k mod 10;

k: = k div 10;

End;

Writeln (S) ;

Какая решается задача? Запрограммируйте решение этой же задачи с использованием цикла с постусловием.

Question

Аверьян

5 сентября, 11:05

+1

Ответы (1)

Знаете ответ?

Тонюня · Answer 1

Идет вычисление суммы цифр числа.

begin

readln (k) ;

s:=0;

repeat

s: = s + k mod 10;

k: = k div 10;

until (k<=0) ;

writeln (s) ;

end.