В первый день тренировочного цикла Катя пробегает 2 км,а каждый последующий день-в 2 раза...

Question

В первый день тренировочного цикла Катя пробегает 2 км,а каждый последующий день-в 2 раза больше,чем в предыдущий.Тренер Кати прекращает цикл,когда километраж одной тренировки превышает S.Сколько дней длится тренировочный цикл Кати?

ПРИМЕР

Ввод:1000
Вывод:10

Использовать цикл while

Answer 1

Program n1;
var n,i,s:real;
begin
read(s);
writeln('километраж=',s);
i:=1;
n:=0;
while i<=s do<br>begin
i:=i*2;
n:=n+1;
end;
writeln(n,' дн. длится тренировочный цикл Кати');
end.

Answer 2

//tren, kilom :integer
tren=0
kilom=2
while (kilomkilom=kilom*2
tren=tren+1
}
return tren