Сколько раз исполнится следующий цикл:
i:=21;
Repeat
i:=i-5
Until i>21;

1 раз

Объяснение:

i =21

i=21-5=16 // первый проход цикла

условие не выполняется i не больше 21

1 раз

Объяснение:

решение: наливаем в 5-вую и из нее в 3-вую, в ней осталось 2 литра. из 3-ой выливаем все обратно, оставшиеся 2 литра выливаем в 3-вую. затем наполняем 5-вую и из нее отливаем 1 литр в 3-вую, итак в 5-литрой 4 литра

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.