(ssl1197)P2563 质数和分解

质数和分解(normal)

Time Limit:1000MS  Memory Limit:65536K
Total Submit:126 Accepted:79

Description

　　任何大于 1 的自然数 n，都可以写成若干个大于等于 2 ，且小于等于 n 的质数之和表达式(包括只有一个数构成的和表达式的情况)，并且可能有不止一种质数和的形式。例如9 的质数和表达式就有四种本质不同的形式： 
9 = 2+5+2 = 2+3+2+2 = 3+3+3 = 2+7 。 
　　这里所谓两个本质相同的表达式是指可以通过交换其中一个表达式中参加和运算的各个数的位置而直接得到另一个表达式。 
　　试编程求解自然数 n 可以写成多少种本质不同的质数和表达式。 

Input

　　每一行存放一个自然数 n , 2≤n≤200

Output

　　输出每一个自然数 n 的本质不同的质数和表达式的数目

Sample Input

２

Sample Output

１

Source

elba

var
 a,f:array[0..200]of longint;
 v:array[0..200]of boolean;
 n,i,j,k,x:longint;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
 for i:=2 to 200 do//因为不知道会输多少次所以用上限来做循环
  if not(v[i]) then
   begin
    inc(x);//记录质数的个数
    a[x]:=i;//记录质数的值
    for j:=2 to 200 div i do v[i*j]:=true;//说明这些是都不是质数
   end;
 f[0]:=1;//初始化
 for i:=1 to x do
  for j:=a[i] to 200 do
    f[j]:=f[j]+f[j-a[i]];//累加就行了
 while not(eof) do
  begin
   readln(n);//尽管输入吧~
   writeln(f[n]);//只管输出就行了~
  end;
end.