小玉在游泳

题意

已知小玉第一步能游2米，可是随着越来越累，力气越来越小，她接下来的每一步都只能游出上一步距离的98%。现在小玉想知道，如果要游到距离x米的地方，她需要游多少步呢。

var
n,t,w:real;
c:longint;
begin
    read(n);
    t:=2;c:=0;
    while n>0 do
    begin
        n:=n-t;
        t:=t*0.98;
        inc(c);
    end;
    write(c);
end.