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

динка84 динка84    3   07.07.2019 14:00    0

Ответы
sab005 sab005  30.07.2020 20:11
Идет вычисление суммы цифр числа. 
begin
readln(k);
s:=0;
repeat
s:= s + k mod 10;    
k:= k div 10;
until (k<=0);
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика