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

Question

Информатика

Германыч

4 мая, 23:02

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

+2

Ответы (1)

Знаете ответ?

Машуха · Answer 1

Например если вводится 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.