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

Question

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

Answer 1

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

Comments

можно всю программу?

---

ща изменю

---

пойдет?

---

да, спасибо

---

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

---

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