Cod sursa(job #191871)
Utilizator | Data | 29 mai 2008 13:30:36 | |
---|---|---|---|
Problema | Combinari | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.54 kb |
var s:array[0..20] of longint;
n,k:longint;
f,g:text;
procedure back(l:longint);
var i:longint;
begin
if (l=k) then
begin
for i:=1 to k do
write(g,s[i],' ');
writeln(g);
end
else
begin
for i:=s[l]+1 to n do
begin
s[l+1]:=i;
back(l+1);
end;
end;
end;
begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
readln(f,n,k);
back(0);
close(f);close(g);
end.