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

0 голосов
28 просмотров

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


Информатика (12 баллов) | 28 просмотров
Дан 1 ответ
0 голосов

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

(18 баллов)