Cod sursa(job #196327)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 25 iunie 2008 17:48:00
Problema Combinari Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.85 kb
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.