Question

запишите алгоритм определения количества четных чисел среди заданных целых чисел а,в,с

Answer 1

var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadInteger3;
  var k:=0;
  if a.IsEven then k+=1;
  if b.IsEven then k+=1;
  if c.IsEven then k+=1;
  Writeln('Количество четных чисел равно ',k)
end.