Question

Ввести число и вычитать из него 2 пока оно не станет меньше или равно 1. Сколько раз выполнено вычитание

Answer 1

c while:

var
  i, k: integer;

begin
  writeln('Число: ');
  readln(i);
  while i > 1 do
  begin
    i := i - 2;
    k := k + 1
  end;
  writeln('Количество вычитаний - ', k);
end.

с repeat:

var
  i, k: integer;

begin
  writeln('Число: ');
  readln(i);
  repeat
    i := i - 2;
    k := k + 1
  until i <= 1;
  writeln('Количество вычитаний - ', k);
end.