Даны 4 числа, определить количество четных среди них (Информатика: ветвления, логические операции и выражения

Question

Информатика

Данил

1 сентября, 22:51

Даны 4 числа, определить количество четных среди них (Информатика: ветвления, логические операции и выражения

+1

Ответы (1)

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

Васяк · Answer 1

var i, r, a:integer;

begin cls;

r:=0;

For i:=1 to 4 do

begin

read (a) ;

if a mod 2 = 0 then inc (r) ;

end;

writeln ('chetnyh = ', r) ;

readln;

end