создайте прогу доплачу 50р.

[ламхакер]

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

что же Вы такой беспомощный?!!

запускайте Pascal ABC
в окне вставляйте текст программы:

function IntToStrNLength(K : LongInt; NLen : integer) : string;
begin
  result := IntToStr(K);
  while length(result)<NLen do result := '0' + result;
end;

var f: text;
    i : LongInt;
begin
  Assign(f,'D:\BigMat.txt');
  Rewrite(f);
  i := 0;
  while i<= 1000 { 99999999  }
  do begin
    WriteLn(f,'мат'+IntToStrNLength(i,8));
    inc(i);
  end;
  Close(f);
  WriteLn('DONE!');
end.

выделил цветом то, что Вам нужно(можно) менять!
там, где D:\BigMat.txt напишите имя файла с полным путём, где Вы хотите получить резульат.

там, где 1000 напишите финальное число (она для справки рядом, в комментарии написано). Первый раз рекомендую запустить с небольшим числом, чтобы убедится, что всё работает.

ну, как то, так...

спасибо друг спас

[ламхакер]

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

а чем тема http://www.programmersforum.ru/showthread.php?t=247931 не устроила?!

не давай бан. просто я там не понял. я день назад первый раз паскаль абц открыл

[ламхакер]

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

что же Вы такой беспомощный?!!

запускайте Pascal ABC
в окне вставляйте текст программы:

function IntToStrNLength(K : LongInt; NLen : integer) : string;
begin
  result := IntToStr(K);
  while length(result)<NLen do result := '0' + result;
end;

var f: text;
    i : LongInt;
begin
  Assign(f,'D:\BigMat.txt');
  Rewrite(f);
  i := 0;
  while i<= 1000 { 99999999  }
  do begin
    WriteLn(f,'мат'+IntToStrNLength(i,8));
    inc(i);
  end;
  Close(f);
  WriteLn('DONE!');
end.

выделил цветом то, что Вам нужно(можно) менять!
там, где D:\BigMat.txt напишите имя файла с полным путём, где Вы хотите получить резульат.

там, где 1000 напишите финальное число (она для справки рядом, в комментарии написано). Первый раз рекомендую запустить с небольшим числом, чтобы убедится, что всё работает.

ну, как то, так...

ошибка в 11 строке пишет

[Arigato]

Предлагаю прекратить обсуждение задачи в разделе Фриланс.

Оставляйте контактные данные, связывайтесь с исполнителем, получайте готовый продукт, оплачивайте работу.