社区讨论
Pascal TLE求助
P6487[COCI 2010/2011 #4] HRPA参与者 1已保存回复 0
讨论操作
快速查看讨论及其快照的属性，并进行相关操作。
- 当前回复
- 0 条
- 当前快照
- 1 份
- 快照标识符
- @mkhq83l7
- 此快照首次捕获于
- 2026/01/17 11:07 上个月
- 此快照最后确认于
- 2026/01/19 20:10 上个月
PASCAL
var
n, a, b, c : Int64;
begin
readln(n);
while n >= 0 do
begin
a := 0;
b := 1;
c := 1;
while c <= n do
begin
a := b;
b := c;
c := a + b;
end;
n := n - a;
end;
writeln(a);
end.
回复
共 0 条回复，欢迎继续交流。
正在加载回复...