Показать сообщение отдельно
  (#3 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 30.12.2008, 21:23

Ладно, только по случаю праздника:

Function f(a:integer):boolean;
VAR b:boolean;
BEGIN
If a mod 2 = 0 then b:=TRUE else b:=FALSE;
f:=b;
END;

С наступающим!
Ответить с цитированием
Ads