Question

Турбо паскаль. люди ! даны 3 числа, подсчитать количество четных и не четных чисел, не испоьзуя логические операции(and, or, not) как можно проще.

Answer 1

var a,b,c,nchet,nnechet: integer;

begin

  nchet:=0;

  nnechet:=0;

  writeln('Введите 3 числа');

  readln(a,b,c);

  if a mod 2=0 then nchet:=nchet+1 else nnechet:=nnechet+1;

  if b mod 2=0 then nchet:=nchet+1 else nnechet:=nnechet+1;

  if c mod 2=0 then nchet:=nchet+1 else nnechet:=nnechet+1;

  writeln('Количество четных чисел равно ',nchet,', количетсво нечетных равно ',nnechet);

end.

Answer 2

program av;

var a,b,c,d,e:integer;

begin

writeln('введите числа');

readln(a,b,c) ;

d:=0 ;

if  a mod 2 = 0

then d:=d+1;

if  b mod 2 = 0

then d:=d+1;

if  c mod 2 = 0

then d:=d+1;

 e:=3-d

writeln(d,'количество четных') ;

 writeln(e,'количество не четных') ;

end.