1. Сколько раз будет выполнен следующий цикл:
а) i:=21;
repeat
i:=i-5
untill i>21;

Объяснение:

как дела у меня нормммммммм хаха жкола закрыта аазаззааззаззазаазазаазаза лолллололооллолоолололл ютубббббббббббббббббббббббббббббб

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.