y определите номер дня, на который пробег спортсмена составит не менее y километров.

Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.

входные данные 10 20 выходные данные 9

Ответы:

var

y,n:integer,

x:real,

begin

n:=1,

write(x= ),

readln(x),

write(y= ),

readln(y),

while x &lt, y do begin

inc(n),

x:=x*1.1,

end,

writeln(n),

end.