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

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;<br>  writeln('Количество вычитаний - ', k);
end.

---