В следующем фрагменте k и S -переменные целого типа:
Readln(k);
S:=0;
While K>0 Do
Begin
S:=S+k mod 10;
k:= k div 10;
End;
Writeln(S);
Какая решается задача? Запрограммируйте решение этой же задачи с использованием цикла с постусловием.

Идет вычисление суммы цифр числа. beginreadln(k);s:=0;repeats:= s + k mod 10;    k:= k div 10;until (k<=0);writeln(s);end.