В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров. Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.

var

  x, y:real;

  day:integer;

begin

  readln(x);

  readln(y);

  day := 1;

  while x < y do

  begin

    x := x * 1.1;

    day := day + 1;

  end;

  writeln(day);

end.

varx,y:real;n:integer;beginreadln(x);readln(y);while x<y do beginx:=x*0.1+x;n:=n+1;end;writeln('den=', n)end.