编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：运行超时|格式错误...
├ 测试数据 07：运行超时|格式错误...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：60 有效耗时：0ms
program p1302;
var i,j:longint;
m,k:int64;
begin
read(m);
for i:=1 to 100000 do
for j:=i+1 to 100000 do
begin
k:=(i+j)*(j-i+1) div 2;
if m=k then writeln(i,' ',j)
else if m
2 条评论
-
赫敏·格兰杰 LV 10 @ 2009-11-07 11:45:28
怎么能这样暴搜呢？
-
@ 2009-11-07 11:37:22
var
n,p,s,i:longint;
begin
readln(n);
for i:=1 to n div 2+1 do
begin
s:=0;
p:=i;
repeat
s:=s+p;
inc(p);
if s=n then
begin
writeln(i,' ',p-1);
break;
end;
until s>n-p;
end;
end.
- 1
