Question

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

Answer 1

//tren, kilom :integer
tren=0
kilom=2
while (kilom<s){
kilom=kilom*2
tren=tren+1
}
return tren

Answer 2

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