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

Readln (k) ;

S:=0;

While K>0 Do

Begin

S:=S+k mod 10;

k: = k div 10;

End;

Writeln (S) ;

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

Question

Машаня

4 июня, 07:13

+4

Ответы (1)

Знаете ответ на вопрос?

Аникита · Answer 1

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

begin

readln (k) ;

s:=0;

repeat

s: = s + k mod 10;

k: = k div 10;

until (k<=0) ;

writeln (s) ;

end.