Показать сообщение отдельно
  #3  
Старый 30.10.2010, 22:10
Аватар для eXplorer
eXplorer eXplorer вне форума
Активный
 
Регистрация: 06.08.2010
Адрес: Ярославль
Сообщения: 264
Версия Delphi: 7
Репутация: 14
По умолчанию

что бы вывести все чётные или нечётные
добавишь условие отбора:
например все чётные
Код:
if i2 mod 2=0 then begin
__________________
Ответить с цитированием