Программа для составления списка чисел

[Dina2360]

00001;00001
00002;00002
00003;00003
и т.д

[whatever]

Ну путь будет:

var
  T:text;
  i:integer;
  str:string;
begin
  assign(T,'output.txt');
  rewrite(T);
  for i:=1 to 99999 do
    begin
      str:='';
      if i<10 then
        str:='0000';
      if (i>=10)and(i<100) then
        str:='000';
      if (i>=100)and(i<1000) then
        Str:='00';
      if (i>=1000)and(i<10000) then
        str:='0';
      str:=str+intToStr(i)+';'+str+intToStr(i);
      writeln(T,str);
    end;
  close(T);
end.

[eoln]

http://programmersforum.ru/showthread.php?t=118024
только по два раза выводить и всё

ПАРДОН 5 раз! Что-то я перепутал раздел Паскаль и Делфи. Мой вариант (как и вариант whatever) не на всяком Паскале будет работать

[whatever]

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

http://programmersforum.ru/showthread.php?t=118024
только по два раза выводить и всё

ПАРДОН 5 раз! Что-то я перепутал раздел Паскаль и Делфи. Мой вариант (как и вариант whatever) не на всяком Паскале будет работать

Хм... Я вроде бы ничего такого не использовал, почему не вовсех паскалях работать будет? Мне кажется даже в турбо пойдет. Или я неправ?

Update: а, ну да. Textfile заменить на text и точно на всех пойдет :D

[Hacker19_90]

Update: а, ну да. Textfile заменить на text и точно на всех пойдет :D

Ну как бе
В BP вот такая строка

 for i:=1 to 99999 do

выдаёт что
Error 76: Constant out of range
Как бе так!

[Poma][a]

intToStr

не потянет