Question

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

Answer 1

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.

Answer 2

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