Cod sursa(job #550709)
Utilizator | Data | 9 martie 2011 21:07:21 | |
---|---|---|---|
Problema | Combinari | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.54 kb |
var a:array[0..100]of byte;
n,k:byte; f:text;
procedure init;
var i:byte;
begin
for i:=0 to n do a[i]:=i;
end;
procedure afis;
var i:byte;
begin
for i:=1 to k do write(f,a[i]); writeln(f);
end;
procedure comb(p:byte);
var i:byte;
begin
if p>k then afis else
begin
for i:=a[p-1]+1 to n-k+p do
begin
a[p]:=i;
comb(p+1);
end;
end;
end;
begin
assign(f,'combinari.in');
reset(f);
readln(f,n,k);
close(f);
assign(f,'combinari.out');
rewrite(f);
init;
comb(1);
close(f);
end.