50 Б. Используя язык запросов и поисковые операторы AND, OR, NOT, осуществите поиск информации об использовании компьютера в учебном процессе. На проверку пришлите скриншоты окна с отображением поисковых запросов и результатов поиска. ( )

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

страус! он бегает со скоростью 80 км/ч