新客立减

 

解的个数

(count) 

给定一个正整数

K

,问有多少和正整?/p>

X,Y

满足

X>=Y

?/p>

1/K=1/X+1/Y

,

将所?/p>

解按

X

降序输出?/p>

 

输入

 

第一行一个数

T

,表示数据组?/p>

 

以下

T

行,每行一个数

输出

 

T

部分,每部分第一行一个数

K

,以下一次按

X

降序输出所有解,个数见样例?/p>

注意

=+

两边都有空格?/p>

 

样例输入

 

12 

  

样例输出

 

1/2 = 1/6 + 1/3 

1/2 = 1/4 + 1/4 

1/12 = 1/156 + 1/13 

1/12 = 1/84 + 1/14 

1/12 = 1/60 + 1/15 

1/12 = 1/48 + 1/16 

1/12 = 1/36 + 1/18 

1/12 = 1/30 + 1/20 

1/12 = 1/28 + 1/21 

1/12 = 1/24 + 1/24 

  

数据规模

 

30% 

       K<=20 

100% 

     K<=10000,T<=10 

  

  

  

标程?/p>

 

  

var t,i,j,l,n,k:integer; 

 

 

 

 

 

 

a:array[1..20] of integer; 

 

 

 

 

 

 

b,c:array[1..10000] of longint; 

 

 

procedure shou(n:integer); 

 

 

Ͼλ
新客立减

 

解的个数

(count) 

给定一个正整数

K

,问有多少和正整?/p>

X,Y

满足

X>=Y

?/p>

1/K=1/X+1/Y

,

将所?/p>

解按

X

降序输出?/p>

 

输入

 

第一行一个数

T

,表示数据组?/p>

 

以下

T

行,每行一个数

输出

 

T

部分,每部分第一行一个数

K

,以下一次按

X

降序输出所有解,个数见样例?/p>

注意

=+

两边都有空格?/p>

 

样例输入

 

12 

  

样例输出

 

1/2 = 1/6 + 1/3 

1/2 = 1/4 + 1/4 

1/12 = 1/156 + 1/13 

1/12 = 1/84 + 1/14 

1/12 = 1/60 + 1/15 

1/12 = 1/48 + 1/16 

1/12 = 1/36 + 1/18 

1/12 = 1/30 + 1/20 

1/12 = 1/28 + 1/21 

1/12 = 1/24 + 1/24 

  

数据规模

 

30% 

       K<=20 

100% 

     K<=10000,T<=10 

  

  

  

标程?/p>

 

  

var t,i,j,l,n,k:integer; 

 

 

 

 

 

 

a:array[1..20] of integer; 

 

 

 

 

 

 

b,c:array[1..10000] of longint; 

 

 

procedure shou(n:integer); 

 

 

">
新客立减

 

解的个数

(count) 

给定一个正整数

K

,问有多少和正整?/p>

X,Y

满足

X>=Y

?/p>

1/K=1/X+1/Y

,

将所?/p>

解按

X

降序输出?/p>

 

输入

 

第一行一个数

T

,表示数据组?/p>

 

以下

T

行,每行一个数

输出

 

T

部分,每部分第一行一个数

K

,以下一次按

X

降序输出所有解,个数见样例?/p>

注意

=+

两边都有空格?/p>

 

样例输入

 

12 

  

样例输出

 

1/2 = 1/6 + 1/3 

1/2 = 1/4 + 1/4 

1/12 = 1/156 + 1/13 

1/12 = 1/84 + 1/14 

1/12 = 1/60 + 1/15 

1/12 = 1/48 + 1/16 

1/12 = 1/36 + 1/18 

1/12 = 1/30 + 1/20 

1/12 = 1/28 + 1/21 

1/12 = 1/24 + 1/24 

  

数据规模

 

30% 

       K<=20 

100% 

     K<=10000,T<=10 

  

  

  

标程?/p>

 

  

var t,i,j,l,n,k:integer; 

 

 

 

 

 

 

a:array[1..20] of integer; 

 

 

 

 

 

 

b,c:array[1..10000] of longint; 

 

 

procedure shou(n:integer); 

 

 

Ͼλ">

noip普及组复赛模拟试?4(附答? - 百度文库
新客立减

 

解的个数

(count) 

给定一个正整数

K

,问有多少和正整?/p>

X,Y

满足

X>=Y

?/p>

1/K=1/X+1/Y

,

将所?/p>

解按

X

降序输出?/p>

 

输入

 

第一行一个数

T

,表示数据组?/p>

 

以下

T

行,每行一个数

输出

 

T

部分,每部分第一行一个数

K

,以下一次按

X

降序输出所有解,个数见样例?/p>

注意

=+

两边都有空格?/p>

 

样例输入

 

12 

  

样例输出

 

1/2 = 1/6 + 1/3 

1/2 = 1/4 + 1/4 

1/12 = 1/156 + 1/13 

1/12 = 1/84 + 1/14 

1/12 = 1/60 + 1/15 

1/12 = 1/48 + 1/16 

1/12 = 1/36 + 1/18 

1/12 = 1/30 + 1/20 

1/12 = 1/28 + 1/21 

1/12 = 1/24 + 1/24 

  

数据规模

 

30% 

       K<=20 

100% 

     K<=10000,T<=10 

  

  

  

标程?/p>

 

  

var t,i,j,l,n,k:integer; 

 

 

 

 

 

 

a:array[1..20] of integer; 

 

 

 

 

 

 

b,c:array[1..10000] of longint; 

 

 

procedure shou(n:integer); 

 

 



ļ׺.doc޸Ϊ.docĶ
ϵͷ779662525#qq.com(#滻Ϊ@)