var i,j,k:integer; var f:text; var a:array[0..35] of string =('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u','v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9'); begin assign (f, 'text.txt'); rewrite(f); for i:=0 to 35 do for j:=0 to 35 do for k:=0 to 35 do writeln(f ,(a[i]+a[j]+a[k])); close(f); readln; end. Нужно создать text.txt в директории откуда будет запускаться программа.
Можно самому написать, Скачиваете программу Hugs 98
Вней в коммандной строке вводите текст ниже и запускаете по Enter:
Для длинны 3 будет:
[[p1]++[p2]++[p3]|p1<-ch,p2<-ch,p3<-ch] where ch=['a'..'z']++['0'..'9']
всего 46656 комбинаций
var i,j,k:integer;
var f:text;
var a:array[0..35] of string =('a', 'b', 'c', 'd', 'e', 'f', 'g',
'h', 'i', 'j', 'k', 'l', 'm', 'n',
'o', 'p', 'q', 'r', 's',
't', 'u','v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4',
'5', '6', '7', '8', '9');
begin
assign (f, 'text.txt');
rewrite(f);
for i:=0 to 35 do
for j:=0 to 35 do
for k:=0 to 35 do
writeln(f ,(a[i]+a[j]+a[k]));
close(f);
readln;
end.
Нужно создать text.txt в директории откуда будет запускаться программа.