Склавиатуры вводятся 3 числа, подсчитать сколько среди них четных положительных чисел. ps: использовать функцию деления по модулю: a mod b- выдает остаток при делении числа а на число b 15 mod 2=1 15 mod 3=0

Var    a,b,c,k: integer; begin        k: =0;         writeln('input a,b,c');     read(a,b,c);         if (a > 0) and (a mod 2 = 0) then inc(k);         if (b > 0) and (b mod 2 = 0) then inc(k);         if (c > 0) and (c mod 2 = 0) then inc(k);         writeln;         write('k = ',k); end.

type cl = class

  a: integer;

  constructor create(b: integer);

  procedure setval(b: integer);

  function getval: integer;

  procedure sq;

end;

constructor cl.create(b: integer);

begin

  a : = b;

end;

procedure cl.setval(b: integer);

begin

  a : = b;

end;

function cl.getval: integer;

begin

  getval : = a;

end;

procedure cl.sq;

begin

  if a < 0 then

    writeln('a ^ 2 = ', a * a)

  else

    writeln('error');

end;

var

  obj: cl;

  a : integer;

begin

  write('a = ');

  readln(a);

  obj : = cl.create(a);

  obj.sq;

  readln;

  obj.destroy;

end.

обычный фильтр access используется для отбора записей по значениям нескольких полей. поле фильтр для (filter for) используется, если фокус ввода находится в поле таблицы и нужно ввести конкретное искомое значение или выражение, результат которого будет применяться в качестве условия отбора. для создания сложных фильтров следует использовать окно расширенного фильтра. набор записей, которые были отобраны в процессе фильтрации, называется результирующим набором. чтобы использовать фильтр по выделенному фрагменту, необходимо для того чтобы установить фильтр по выделенному фрагменту, можно воспользоваться также командой контекстного меню фильтр по выделенному (filter by selection) или выбрать из меню записи (records) команду фильтр, фильтр по выделенному (filter, filter by selection)