Комбинации, Комбинации Опции

[alecsandr]

Не подскажите, как найти все комбинации фактариала числа? (Пример:4!= 1234, его комбинации, 1243,1342,1324 и т.д.)

[volvo]

Она не хочет записывать(

А ты попроси, как следует:

{процедура вывода полученной перестановки}
procedure output;
var i: integer;
begin
  writeln(out); { <--- }
  for i:=1 to n do write(out, a[i],' '); { <--- }
end;

, тогда будет запись в файл... Кстати, я бы не рекомендовал бросать файлы в корень диска С:... Во-первых, у тебя элементарно может не быть прав на запись туда, а во-вторых - это просто глупо, зачем писать что-то в корень системного диска? Пиши в ту же папку, где лежит твой EXE-шник:

clrscr;
assign(out,'out.txt');
rewrite (out);