Даны 4 числа , определить количество четных среди них (Информатика :ветвления , логические операции и выражения
Ответы
Ответ дал:
2
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
Вас заинтересует
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад