Вследующем фрагменте k и s -переменные целого типа: readln(k); s: =0; while k> 0 do begin s: =s+k mod 10; k: = k div 10; end; writeln(s); какая решается ? запрограммируйте решение этой же с использованием цикла с постусловием.