Cod sursa(job #864609)

Utilizator andreiseiceanSeicean Andrei andreiseicean Data 25 ianuarie 2013 14:31:32
Problema Combinari Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
program cmb;
var s:array [1..100] of longint;
    p,n:longint;
procedure afis();
var j:longint;
begin
for j:=1 to p do write(s[j],' ');
writeln();
end;
procedure comb(t:longint);
var i:longint;
begin
if t<=p then
for i:=s[t-1]+1 to n do begin s[t]:=i; comb(t+1); end;
else afis();
end;
begin
read(n,p);
comb(1);
end.