Pagini recente » Cod sursa (job #1093119) | Cod sursa (job #631517) | Cod sursa (job #2417918) | Cod sursa (job #359586) | Cod sursa (job #196327)
Cod sursa(job #196327)
program combinari;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j,n,m,k,p:integer;
fin,fout:text;
sol:array [1..18] of integer;
{*-------------------------------*}
procedure tipar;
begin
for i:=1 to k do write(fout,sol[i],' ');
writeln(fout);
end;
{*-------------------------------*}
procedure back(p:integer);
var i:integer;
begin
if p > k then tipar
else
begin
for i:=1 to n do
begin
sol[p]:=i;
if sol[p] > sol[p-1] then back(p+1);
end;
end;
end;
{*-------------------------------*}
begin
assign(fin,'combinari.in'); reset(fin);
assign(fout,'combinari.out'); rewrite(fout);
readln(fin,n,k);
back(1);
close(fin);
close(fout);
end.