Здраствуйте!

[demon4960]

Напишите пожалуста програмный код для создания txt файла чтоб в нем были все пятизначные числа В столбик
Пример
00001;00001
00002;00002
00003;00003
...
99999;99999

Зарание спасибо

[p51x]

Очень информативное название темы.

Для подобных тем есть раздел фриланса. Сколько вы готовы заплатить за написанный за вас код?

[demon4960]

извени, думал поможите(

[Вадим Мошев]

Да, я помогу конечно, но не бесплатно, всего за 50 рублей на счёт мобильного телефона. Вы согласны?

[Алексей_2012]

program chisla;
uses crt;
type
zap=record
m:longint;
end;
var
w:zap;
f:file of zap;
name:string;
begin
with w do
begin
m:=1;
clrscr;
write('BBEDITE NAME FILE, HAPRIMER "imya.txt"...') ;
readln(name);
assign(f,name);
rewrite(f);
repeat
writeln('0000',m,'; ','0000',m);
inc(m);
write(f,w);
until (m>9) or (keypressed);
repeat
writeln('000',m,'; ','000',m);
inc(m);
until (m>99) or (keypressed);
repeat
writeln('00',m,'; ','00',m);
inc(m);
until (m>999) or (keypressed);
repeat
writeln('0',m,'; ','0',m);
inc(m);
until (m>9999) or (keypressed);
repeat
writeln(m,'; ',m);
inc(m);
until (m>99999) or (keypressed) ;
end;
close(f); 
writeln('HA}|{MITE ENTER...');
readln;
end.

Вот тебе код, за бесплатно!!! Работает нормально, но может кто упростит алгоритм?

[whatever]

Кто-нибудь может объяснить мне, ЗАЧЕМ? Полгода назад была похожая тема, потом автор обратился ко мне напрямую и ЗАПЛАТИЛ даже не за код, а за файл txt. На вышезаданный вопрос ответил что-то невнятное о_О.

Update: Кстати, вот.

[puporev]

var f:text;
    s:string;
    a:longint;
begin
assign(f,'chisla.txt');
rewrite(f);
for a:=1 to 99999 do
 begin
  str(a,s);
  while length(s)<5 do
  s:='0'+s;
  writeln(f,s,';',s);
 end;
close(f);
write('Файл записан');
readln
end.

[elagin]

Похоже на генератор uin;pass таких программ в интернете тьму тьмущая....