Вследующем фрагменте k и s -переменные целого типа: - вопрос №44434820 от tropinaksusha 05.05.2023 18:05

Question

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

tropinaksusha · Answer

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