社区讨论
Pascal,为什么60，#3，#5运行时错误
P1035[NOIP 2002 普及组] 级数求和参与者 3已保存回复 3
讨论操作
快速查看讨论及其快照的属性，并进行相关操作。
- 当前回复
- 3 条
- 当前快照
- 1 份
- 快照标识符
- @mi5i4sgd
- 此快照首次捕获于
- 2025/11/19 12:27 4 个月前
- 此快照最后确认于
- 2025/11/19 12:27 4 个月前
CPP
var
n,x:integer;
s:real;
begin
read(n);
x:=0;
s:=0;
repeat
inc(x);
s:=s+1/x;
until s>n;
writeln(x);
end.
回复
共 3 条回复，欢迎继续交流。
正在加载回复...