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

clicker666 clicker666    1   19.03.2019 16:55    1

Ответы
Nazarkadm Nazarkadm  07.06.2020 03:46

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика