求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值.分析："恰好使s的值大于10"意思是当表达式s的前n-1项的和小于或等于10,而加上了第n项后s的值大于10.从数学角度,我们很难计算这个n的值.故从第一

Question

求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值.
分析："恰好使s的值大于10"意思是当表达式s的前n-1项的和小于或等于10,而加上了第n项后s的值大于10.从数学角度,我们很难计算这个n 的值.故从第一项开始,当s的值小于或等于10时,就继续将下一项值累加起来.当s的值超过10时,最后一项的项数即为要求的n.

Answer 1

var i,j,n:longint;
s:real;
begin
n:=0;
while s