Написать программу, которая определяет количество четных чисел из введенной с клавиатуры последовательности n чисел. написать программу на паскале.

Например если вводится  3 числа var a,b,c,x: integer; begin x: =0; read(a,b,c); if a mod 2=0 then x: =x+1 if b mod 2=0 then x: =x+1; if c mod 2=0 then x: =x+1; writeln('chetnuh chisel =' ,x); end.

Запишим коды каждой буквы: а = 1000б = 1001в = 1010г = 1011  запишем последовательность бгав = 1001101110001010  чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. получится: 001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. они не результата, просто удобны для записи).  переводим кажое число путем развернутой )формы записи и счета:             ответ: 115612

Первым изобретателем, механических счетных машин, стал гениальный француз блез паскаль. сын сборщика налогов, паскаль задумал построить вычислительное устройство, наблюдая бесконечные утомительные расчеты своего отца. в 1642 г., когда паскалю было всего 19 лет, он начал работать над созданием суммирующей машины. паскаль умер в возрасте 39 лет, но, несмотря на столь короткую жизнь, навечно вошел в как , , писатель и философ. в его честь назван один из самых распространенных современных языков программирования. суммирующая машина паскаля, «паскалина», представляла собой механическое устройство - ящик с многочисленными шестеренками. всего приблизительно за десятилетие он построил более 50 различных вариантов машины. при работе на «паскалине» складываемые числа вводились путем соответствуюшего поворота наборных колесиков. каждое колесико с нанесенными на него делениями от 0 до 9 соответствовало одному десятичному разряду числа - единицам, десяткам, сотням и т. д. избыток над 9 колесико «переносило», совершая полный оборот и продвигая соседнее слева «старшее» колесико на 1 вперед. другие операции выполнялись при довольно неудобной процедуры повторных сложений.