Выкладываю программку на Pascal для генерации мобильных номеров телефонов.

Извиняюсь за поздний ответ.

Для ее запуска потребуется сам паскаль (у кого нет качайте тут Паскаль).

Распаковываете на диск C:\ и оттуда устанавливаете.

Копируете 2 исходных файла программы (они тут Файлы программы ) в папку C:\BP\BIN.

Запускаете паскаль через C:\BP\BIN\TURBO.EXE появляется синий экран.

Оттуда открываете файл через File->Open->Gen1.pas

Создайте текстовый файл на любом диске под названием например name.txt (название на латинице или цифры). В коде программы измените s:='j:\name.txt'; на свой вариант расположения файла и в коде

writeln(f,'+7775',z[t],z[e],z[w],z[q],z[r],z[y],z[m]);

writeln(f,'775',z[t],z[e],z[w],z[q],z[r],z[y],z[m]);

writeln(f,'8775',z[t],z[e],z[w],z[q],z[r],z[y],z[m]);

меняете свою приставку не удаляя знаки '. Жмете CTRL+F9 и вводите цифры начиная от 0 и до 9 после каждой цифры жмем Enter.

0

1

2

3

и т.д

после 9и начнется генерация и запись в файл, записывается сразу 3 значения 8ххх, +7ххх и просто приставка ххх, можно удалить лишнюю строку если не нужна та или иная приставка.

Во время генерации вы увидите бегущие цифры последние 7 это порядковые номера они заключены в {} скобки и так будут идти до 9999999.

У меня генерация занимает около 40 мин.

Не судите строго, программу писал для себя, возможны лишние переменные в коде программы, но на результат они ни как не влияют.

Листинг программы

program gen;

var i,y,m,r,q,c,w,e,t,u,o,p:integer; f:text; scet:char; procent,prot:real; s:string; x1,x2,x3,sum:char;

z:array[1..10]of char;

begin

c:=10;

for i:=i+1 to c do begin

write('wwedite ,'i', znacenie');

readln(z);

end;

s:='j:\name.txt';

assign(f,s);

append (f);

for p:=p+1 to c do begin

if u>1 then break;

o:=0;

for o:=o+1 to c do begin

if u>1 then break;

u:=0;

for u:=u+1 to c do begin

if u>1 then break;

t:=0;

for t:=t+1 to c do begin

e:=0;

for e:=e+1 to c do begin

w:=0;

for w:=w+1 to c do begin

q:=0;

for q:=q+1 to c do begin

r:=0;

for r:=r+1 to c do begin

y:=0;

for y:=y+1 to c do begin

writeln('cikl 1');

m:=0;

for m:=m+1 to c do

begin

writeln('cikl zapusen=',m,' ');

writeln(f,'+7775',z[t],z[e],z[w],z[q],z[r],z[y],z[m]);

writeln(f,'775',z[t],z[e],z[w],z[q],z[r],z[y],z[m]);

writeln(f,'8775',z[t],z[e],z[w],z[q],z[r],z[y],z[m]);

writeln('scet=',z[p],z[o],z,'\{',z[t],z[e],'|',z[w],z[q],'|',z[r],z[y],z[m],'}');

{if z[r]='2' then if z[y]='2' then if z[m]='2' then break;}

end; end; end; end; end; end; end; end; end; end;

close(f);

writeln('y=',r,' m=',y,' m=',m);

readln;

end.