小玉开心的在游泳,可是她很快难过的发现,自己的力气不够,游泳好累哦。已知小玉第一步能游2米,可是随着越来越累,力气越来越小,她接下来的每一步都只能游出上一步距离的98%。现在小玉想知道,如果要游到距离x米的地方,她需要游多少步呢。请你编程解决这个问题。
输入格式:
输入一个数字(不一定是整数,小于100m),表示要游的目标距离。
输出格式:
输出一个整数,表示小玉一共需要游多少步。
输入:4.3
输出:3
var
s,len:double;
counter:longint;
begin
s:=2;
readln(len);
counter:=0;
while len>0 do
begin
len:=len-s;
s:=s*0.98;
counter:=counter+1;
end;
writeln(counter);
end.