Цитата:
|
Сообщение от Страдалецъ
Вот ведь досада. А я расстроился теперь кушать не могу.
А по теме вопроса - есть функция odd () которая определяет четное или нечетное число. Вот и прогоняйте через нее результат выполнения вашей функции и накапливайте счетчик в случае истины.
|
Ежыг
Можно красивее:
Код:
function MyFunc(SomeParams : Integer) : Integer;
begin
...
end;
...
Cnt := 0;
For I := 1 To N Do
Cnt := Cnt + Abs((MyFunc(I) mod 2));
...
И odd и if и инкремент в одной строчке
Для четного не подойдет, а вот для нечетного - вполне