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

Question

Напишите программу которая для введённой пары положительных чисел, большее число делит на меньшее до того, пока оно не станет меньше единицы

Answer 1

П0 <-> П1 - x<0 13 ИП0 П2 ИП1 П0 ИП2 П1<br>ИП0 1 - x<0 22 ИП0 ИП1 / П0 ИП0 С/П

Answer 2

Var
  a,b,t:real;

begin
  Write('Введите через пробел два положительных числа: ');
  Read(a,b);
  if b>a then begin t:=a; a:=b; b:=t end;
  repeat
    a:=a/b
  until a<1;<br>  Writeln(a)
end.

Пример
Введите через пробел два положительных числа: 1.7 153.4
0.760915000615007