- 金币
- 8 年前 @
为什么在我电脑上是对的,在这上面就是错的?
7 条评论
-
zhaocongjun LV 7 @ 8 年前
pascal
var day,i,j,k,num:longint;
begin
read(k);
for i:=1 to 10000 do
for j:=1 to i do
begin
inc(day);
num:=num+i;
if day=k then
begin
write(num);
halt;
end;
end;
end. -
8 年前@
sb
-
8 年前@
死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死死
-
8 年前@
就是,傻傻傻
-
8 年前@
纯模拟啊!!!简单的循环!!!智商呢?!智商呢?!这么简单的题连蒟蒻都不会错!!!
-
8 年前@
我也是·
-
8 年前@
我也一样
- 1