Pascal语言1、小玉在游泳目描述小玉开心的在游泳，可是她很快难过的发现，自己的力气不够，游泳好累哦。已知小玉第一步能游2米，可是随着越来越累，力气越来越小，她接下来的每一步

Question

Pascal语言
1、小玉在游泳
目描述
小玉开心的在游泳，可是她很快难过的发现，自己的力气不够，游泳好累哦。已知小玉第一步能游2米，可是随着越来越累，力气越来越小，她接下来的每一步都只能游出上一步距离的98%。现在小玉想知道，如果要游到距离x米的地方，她需要游多少步呢。请你编程解决这个问题。
输入
输入一个数字（不一定是整数），表示要游的目标距离。
输出
输出一个整数，表示小玉一共需要游多少步。
样例输入
4.3
样例输出
3



2、小龟爬呀爬
题目描述
虽然看起来比较稳重，其实小龟偶尔也做运动。 有爱的主人发现它的运动规律是这样的，它每次爬行，如果第一秒能爬n厘米，接下来每秒爬行的距离总是前一次的3/5，如果它在某一秒的爬行距离小于0.05厘米，那么可爱的小龟在下一秒就会睡着。
现在主人观察到了小龟第一秒爬行的距离，请你告诉他，小龟会在第几秒睡着。
输入
一个小数n，表示小龟第一秒爬行的距离。
输出
一个整数，表示小龟会在第几秒睡着。
样例输入
0.1
样例输出
4

Answer 1

1、var l:longint; x,m,n:real;begin readln(x); n:=2; l:=1; m:=2; while m=0.05 do begin n:=n*3/5; inc(l); end; writeln(l+1);end.希望我的回答能帮到你。有不懂的地方再问哦~...