var i: integer; begin i:=1; for i:=1 to 100500 do Begin Writeln ('Вырубите, наконец, эту рекламу, форум смотреть крайне неудобно с ней!'); i:=i+1 End; Readln; End.
Добавлено (26.01.2010, 06:56) --------------------------------------------- ЗЫ. Вместо Integer надо Longint
Добавлено (30.01.2010, 21:42) --------------------------------------------- Только для этого надо обязательно написать Uses Crt; ЗЫ. Оффтопим потихоньку?
Chuwis720, Кста, спс, просто уже 2 года Pascal в руки не брал, забыл большую часть, сейчас языки Cи больше нравятся. Туториалы по программированию, мои и слегка изменённые чужие. :)