ЗАДАЧА НА ПАСКАЛЕ
в файле input.txt записаны числа сколько их неизвестно. Найти количество нечетных среди них

ща изменю

пойдет?

да, спасибо

если не рабит скажите проверю. прост писал без проверки

можешь сразу проверить? у меня нет паскаля

var a,i:longint;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);while not eof dobeginread(a);if a mod 2<>0 then inc(i);end;write(i);close(input);close(output);end.