Информатика, вопрос задал kri07m31 , 2 года назад

дам 30 баллов
Задача 3-1 Дано N цілих чисел. Знайти кількість парних серед них. ТУ. У першому рядку стандартного вхідного потоку міститься N (N<1000)-кількість чисел У наступному рядку через пропуск дано самі числа У стандартний вихідний потік вивести кількість парних чисел. Bхідні дані 5
12 4 2 7 9 Вихідні дані 3​


kri07m31: 8 класс
politerhon: Здравствуй. Хочу уточнить, программа должна считывать числа с первой строки, и выводить только парные числа на следующий ?
kri07m31: привет,да

Ответы на вопрос

Ответил politerhon
0

Ответ:

Прикрепленный файл кинь в одну папку с программой. Иначе, выдаст ошибку (...что-то там... файл ('input1.txt') не найден... что-то там...).

Удачи, дружище!

Объяснение:

var i,count:integer;

f,g:text;

begin

assign(f,'input1.txt');

assign(g,'output.txt');

reset(f);

rewrite(g);

while not eoln(f) do

begin

read(f,i);

if not odd(i)

then

count:=count+1;

end;

write(g,count);

close(f);

close(g);

end.

Приложения:
Новые вопросы