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

Question

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

Zhannocka · Answer

var i,r,a:integer;begin cls;r:=0;For i:=1 to 4 dobeginread(a);if a mod 2 = 0 then inc(r);end;writeln( chetnyh = ,r);readln;end...