Az alábbi letöltési lehetőségek közül választhatsz: (
segítség)
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 668 byte
program felbont;
uses
SysUtils;
Var t : array [1..100] of integer;
Procedure felb(n,szint:integer);
Var i : integer;
Begin
If n=0 then
Begin
for i:=1 to szint-2 do write(t[i],'+');
Writeln(t[szint-1]);
End;
For i:=1 to n do
Begin
t[szint]:=i;
If szint=1 then felb(n-i,szint+1) else
If (szint>1)and(t[szint-1]>=i) then felb(n-i,szint+1);
End;
End;
begin
felb(5,1);
Readln;
end.