讨论 / 简单
?!@!? 2012-02-26 20:51:00
点我顶贴 收藏 删除
var

m,i,j,k,s:longint;

begin

readln(m);

k:=m div 2;

for i:=1 to k do

begin

s:=0;

for j:=i to k+1 do

begin

s:=s+j;

if s=m then

begin

writeln(i,' ',j);

break;

end;

end;

end;

end.

就过了

#1 (change)@2015-05-16 19:33:50
回复 删除
输入:999999

输出:29 1414

134 1420

209 1429

499 1499

502 1500

559 1520

737 1594

812 1630

822 1635

899 1675

1074 1775

1097 1789

1169 1834

1387 1980

1559 2104

1672 2189

1839 2319

1934 2395

2117 2545

2254 2660

2457 2834

2674 3024

2837 3169

3219 3515

3354 3639

3527 3799

3732 3990

4157 4390

4214 4444

4394 4615

4619 472611

4952 5149

5197 5385

5404 5585

6417 6570

6922 7064

7874 7999

8489 8605

8954 9064

10052 10150

10944 11034

12782 12859

12949 13025

13477 13550

15119 15184

15842 15904

18492 18545

19893 186433

23789 23830

25622 25660

27009 27045

30287 30319

37024 37050

38449 38474

45444 45465

47609 47629

51817 297634

55547 55564

55576 457437

69223 286536

70676 315414

71422 71435

76111 487568

76917 76929

85723 290963

90904 90914

97564 187857

101105 323594

111070 299412

111107 111115

112209 313834

114960 218122

120701 496486

133097 490973

142854 142860

148217 341261

166664 166669

245081 370642

262848 307994

287997 410905

301431 410087

302381 431190

333332 333334

369077 480321

375637 476449

413083 443180

499999 500000

数据有些问题

查看更多回复
提交回复