Question

Что выведут на экран следующие фрагменты программы? Приведите этапы решения пожалуйста:
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.

Answer 1

Ответ:

4

Объяснение:

Цикл выполняется 4 раз и всегда (i mod 10) = 1 и s возрастает от 0 до 4......