А) Определите количесТво записей в таблице после применения пользовательского фильтра к полю

«Отдел».
b) Определите количество записей в таблице после применения пользовательского фильтра к полю​

Количество записей  6

ответ b

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.