编译通过...

├ 测试数据 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