генератор чисел

[rrrFer]

Vago, слишком толст

[Step_UA]

const
 max=36;
 count=5;
var
 mas:array[1..count] of byte;
 f:text;
 procedure NextNum(num:integer;Start:integer);
  var i:integer;
  begin
   if num>count
    then
     begin
      for i:=1 to count do
       write(f,mas[i],' ');
      writeln(f)
     end
    else
     for i:=start to max-count+num do
      begin  mas[num]:=i; nextNum(num+1,i+1) end
  end;
 begin
  assign(f,'res.txt');
  rewrite(f);
  nextNum(1,1);
  close(f);
 end.

[Vago]

Сообщение от rrrFer

...варианты типа 1 2 1 2 1 тут уже вычтены.

У Вас комбинации "1, 2, 3, 4, 5" и "2, 1 , 3, 4, 5" - разные, а с точки зрения задачи - это одно и то же. Вы считаете к-во комбинаций по ф-ле для размещений, а надо считать сочетания.

Сообщение от rrrFer

Если ТС надо чтобы различные комбинации не являлись перестановками друг друга - об этом надо было написать. В его примере это никак не прослеживается. Я сворую часть твоей подписи: "это форум программистов,а не экстрасенсов.", кажется уместно )

Справедливости ради, в #3 слово "спортлото" ТС употребил.

Сообщение от rrrFer

Vago, слишком толст

?

[Somebody]

const
  n = 36;
  k = 5;
var
  f: Text;
  a: array [1 .. k] of Integer;
  i, p: Integer;
begin
  Rewrite(f, 'output.txt');
  for i := 1 to k do
    a[i] := i;
  p := k;
  while true do
  begin
    for i := 1 to k do
      Write(f, a[i], ' ');
    WriteLn(f);
    if a[k] = n then
      dec(p)
    else
      p := k;
    if p = 0 then
      break;
    inc(a[p]);
    for i := 1 to k - p do
      a[p + i] := a[p] + i;
  end;
  Close(f);
end.