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

begin

 var (x, y) := ReadReal2;

 var z := 1;

 while x < y do

 begin

   x := x * 1.5;

   z += 1;

 end;

 Print(z);

end.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

25 декабря 1951 году был создан первый отечественный комп