Помогите написать програмку по информатике . 10 класс . "Даны 4 целых числа. Сколько из них четных "

1

Ответы и объяснения

2014-02-20T13:34:47+00:00
Var a,i,s:Integer;
begin 
s:=0;
for i:=1 to 4 do
begin
readln(a);
if a mod 2 =0 then s:=s+1
end;
writeln(s);
end.