Cod sursa(job #173136)
Utilizator | Data | 7 aprilie 2008 11:25:24 | |
---|---|---|---|
Problema | Combinari | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.51 kb |
var n,m,k,i:longint;
s:array [0..20] of longint;
begin
assign(input,'combinari.in'); reset(input);
assign(output,'combinari.out'); rewrite(output);
readln(n,m); k:=1;
while k>0 do begin
repeat
inc(s[k]);
until (s[k]>n) or ((s[k]<=n) and (s[k]>s[k-1]));
if (s[k]<=n) then
if k=m then begin
for i:=1 to m do write(s[i],' ');
writeln;
end
else inc(k)
else begin
s[k]:=0; dec(k);
end;
end;
close(input); close(output);
end.