社区讨论
请问这哪里错了。。。run了output了没错啊。。。
P1035[NOIP 2002 普及组] 级数求和参与者 5已保存回复 7
讨论操作
快速查看讨论及其快照的属性，并进行相关操作。
- 当前回复
- 7 条
- 当前快照
- 1 份
- 快照标识符
- @lo0u9udn
- 此快照首次捕获于
- 2023/10/22 10:17 2 年前
- 此快照最后确认于
- 2025/11/18 18:49 4 个月前
CPP
var
02. k,n,a:integer;
03. sn:real;
04.begin
05. read(k);
06. a:=1;
07. n:=1;
08. if (k>15) or (k<1) then write('error') else
09. while sn<=k do
10. begin
11. sn:=sn+a/n;
12. n:=n+1;
13. end;
14. n:=n-1;
15. write(n);
16.end.
回复
共 7 条回复，欢迎继续交流。
正在加载回复...