Question

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

Answer 1

begin

 var (x, y) := ReadReal2;

 var z := 1;

 while x < y do

 begin

   x := x * 1.5;

   z += 1;

 end;

 Print(z);

end.