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.