自然數(shù)分解和

4、自然數(shù)n的分解分解（一）輸入自然數(shù)n（n<100），輸出所有和的形式。不能重復(fù)。如：4=1+1+2；4=1+2+1;4=2+1+1屬于一種分解形式。樣例：輸入：7輸出：1:7=1+62:7=1+1+53:7=1+1+1+44:7=1+1+1+1+35:7=1+1+1+1+1+26:7=1+1+1+1+1+1+17:7=1+1+1+2+28:7=1+1+2+39:7=1+2+410:7=1+2+2+211:7=1+3+312:7=2+513:7=2+2+314:7=3+4varn,k,i,count:integer;a:array[1..100]ofinteger;proceduretry(x:integer);vari,j:integer;begininc(count);write(count,':',n,'=');fori:=1tokdowrite(a[i],'+');writeln(x);forj:=a[k]toxdiv2doif(j>=a[k])and(x-j>=j)thenbegininc(k);a[k]:=j;try(x-j);dec(k);end;end;beginreadln(n);count:=0;fori:=1tondiv2dobegink:=1;a[1]:=i;try(n-i);end;end.分解（二）輸入自然數(shù)n和m（n，m<100），輸出所有分解，分解后的每一項(xiàng)都不超大于m的。不能重復(fù)。如：4=1+1+2；4=1+2+1;4=2+1+1屬于一種分解形式。如：輸入：74輸出：1:7=1+1+1+42:7=1+1+1+1+33:7=1+1+1+1+1+24:7=1+1+1+1+1+1+15:7=1+1+1+2+26:7=1+1+2+37:7=1+2+48:7=1+2+2+29:7=1+3+310:7=2+2+311:7=3+4beginreadln(n);readln(m);count:=0;fori:=1tondiv2dobegink:=1;a[1]:=i;try(n-i);end;end.varn,m,k,i,count:integer;a:array[1..100]ofinteger;procedureprint(i,x:integer);varj:integer;begininc(count);write(count,':',n,'=');fori:=1tokdowrite(a[i],'+');writeln(x);end;proceduretry(x:integer);{x是第k+1項(xiàng)}vari,j:integer;beginifx<=mthenprint(k,x);forj:=a[k]toxdiv2doif(j>=a[k])and(x-j>=j)thenbegininc(k);a[k]:=j;try(x-j);dec(k);end;end;分解（三）輸入自然數(shù)n和m（n，m<100），輸出所有分解項(xiàng)數(shù)不超過(guò)m的所有形式。不能重復(fù)。如：4=1+1+2；4=1+2+1;4=2+1+1屬于一種分解形式。如：輸入：74輸出：1:7=1+62:7=1+1+53:7=1+1+1+44:7=1+1+2+35:7=1+2+46:7=1+2+2+27:7=1+3+38:7=2+59:7=2+2+310:7=3+4varn,m,k,i,count:integer;a:array[1..100]ofinteger;procedureprint(i,x:integer);varj:integer;begininc(count);write(count,':',n,'=');fori:=1tokdowrite(a[i],'+');writeln(x);end;proceduretry(x:integer);{x是第k+1項(xiàng)}vari,j:integer;beginifk<=m-1thenprint(k,x);forj:=a[k]toxdiv2doif(j>=a[k])and(x-j>=j)thenbegininc(k);a[k]:=j;try(x-j);dec(k);end;end;beginreadln(n);readln(m);count:=0;fori: