Что выведут на экран следующие фрагменты программы? Приведите этапы решения пожалуйста:
Program p3B;
var i,s:integer;
begin
i:=15; s:=0;
repeat
s:=s+ i mod 10 ; i:=i+1;
until i<20;
writeln (s);
end.
Program p3B;
var i,s:integer;
begin
i:=15; s:=0;
repeat
s:=s+ i mod 10 ; i:=i+1;
until i<20;
writeln (s);
end.
More Questions From This User See All
Answers & Comments
Ответ:
4
Объяснение:
Цикл выполняется 4 раз и всегда (i mod 10) = 1 и s возрастает от 0 до 4......