关闭

信息学奥林匹克竞赛-小玉学游泳

442人阅读 评论(0) 收藏 举报
分类:

小玉开心的在游泳,可是她很快难过的发现,自己的力气不够,游泳好累哦。已知小玉第一步能游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.


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:73135次
    • 积分:1898
    • 等级:
    • 排名:千里之外
    • 原创:123篇
    • 转载:7篇
    • 译文:0篇
    • 评论:3条
    博客专栏
    推荐