作业帮 > 综合 > 作业

自然数的无序拆分用pascal程序解决

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/29 20:28:26
自然数的无序拆分用pascal程序解决
把自然数N(N
自然数的无序拆分用pascal程序解决
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.