自然数的无序拆分用pascal程序解决
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/18 18:11:36
自然数的无序拆分用pascal程序解决
把自然数N(N
把自然数N(N
easy!自己调试 program fenshuzi; var n,i,j:longint; f:array[0..100]of longint; t:text; begin assign(t1,'split.in'); assign(t2,'split.out'); reset(f1); rewrite(f2); read(t1,n); f[0]:=1; for i:=1 to n do for j:=1 to n do if j>=i then f[j]:=f[j]+f[j-i]; writeln(t2,f[n]); close(t1); close(t2); end.