Сделать программу ** языке Паскаль с repeat

Question

Сделать программу на языке Паскаль с repeat

---

Comments

Вам нужно чтобы программа проходила тесты задачника или вы сами будете вбивать значения A и B?

Answer 1

program While2;

uses PT4;

function Iter(a, b: real): integer;

begin

 Result := 0;

 repeat

   Result += 1;

   a -= b

 until a < b

end;

begin

 Task('While2');

 var (A, B) := ReadReal2();

 Write(Iter(A, B))

end.

Comments

Если хотите вводить A и B с клавиатуры, тогда закомментируйте строку uses PT4; и строку Task('While2');