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: 379 byte
Program par;
var cache : Array[0..100] of Longint;
Procedure x(n,szint:integer);
Var i : integer;
Begin
If n = 0 Then
Begin
For i:=1 To szint Do write(cache[i],' ');
writeln;
end;
For i := cache[szint] To n Do
Begin
cache[szint + 1] := i;
x(n-i,szint+1);
End;
End;
Begin
cache[0] := 1;
x(30,0);
End.