Составьте программу по подобию, в которой будут выставляться оценки за полученные ​

а) исполнился 2 раза

б) исполнился 2 раза

в) исполнился 3 раза

Объяснение:

Не совсем понял суть вопроса, но, скорее всего, задача состоит в том, чтобы подсчитать число итераций (количество прохождений цикла), поэтому, распишу такую постановку вопроса

а) for i:=1 to 2 do

В данном цикле переменная i принимает значение 1 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 2.

- первый проход (i равно единице)

- второй проход (i равно двум)

- конец

То есть, в этой циклической конструкции код исполнился 2 раза (т.к. i увеличивалось с единицы до двух)

б) for i:=2 to 3 do

В данном цикле переменная i принимает значение 2 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 3.

- первый проход (i равно двум)

- второй проход (i равно трём)

- конец

То есть, в этой циклической конструкции код исполнился 2 раза (т.к. i увеличивалось с двух до трёх)

в) for i:=1 to 3 do

В данном цикле переменная i принимает значение 1 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 3.

- первый проход (i равно единице)

- второй проход (i равно двум)

- третий проход (i равно трём)

- конец

То есть, в этой циклической конструкции код исполнился 3 раза (т.к. i увеличивалось с единицы до трёх)

Приношу извинения за то, что на русском языке, но украинский я не знаю :)

Надеюсь и правильно понял суть вопроса

Var x1,y1,x2,y2,v1,v2:real;
begin
  writeln("введите количество метров пробегания жирафа");
  read(y1);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x1);
  writeln("введите количество метров пробегания зайца");
  read(y2);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x2);
  v1:=y1/x1;
  v2:=y2/x2;
  if v1>v2 then 
  begin
     writeln("жираф чемпион");
  end
  else if v1<v2 then 
  begin
     writeln("заяц чемпион");
  end
  else
  begin
    writeln("победила дружба);
  end;
end;