Question

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

Answer 1

Program n_1;

var x, y: double; d:integer;

begin

   d:=0;

   read(x, y);

   while (x<y) do begin

       x:=x*1.1;

       d:=d+1;

   end;

   writeln(d);

end.