в языке запросов поискового сервера для обозначения логической операции
«или» используется символ «», а для логической операции «и» — символ
в таблице запросы и количество найденных по ним страни
некоторого сегмента сети. считается, что все запросы выполнялись
практически одновременно, так что набор страниц, содержащих все искомые
слова, не изменялся за время выполнения запросов.
запрос
найдено страниц
(в тысячах)
евгений | онегин
1700
евгений
1600
онегин
1200
страниц (в тысячах) будет найдено по запросу
какое количество
евгений & онегин? ​

Var a,b,c,d,i,f,g,h,n:integer;
begin
writeln('введите число');
readln(a);
g:=0;
c:=0;
d:=0;
i:=0;
f:=0;
writeln('введите число для сравнения');
readln(h);
for b:=a downto 1 do begin
if a mod b = 0 then writeln('его делитель ==>',b);
if a mod b = 0 then c:=b+c;
if a mod b = 0 then if b mod 2 = 0 then d:=d+b;
if a mod b = 0 then if b mod 2 <> 0 then i:=i+1;
if a mod b = 0 then f:=f+1; 
if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i
f a mod b = 0 then if b>h then n:=n+1; 
end;
writeln('сумма его делителей ==>',c);
writeln('сумма его чётных делителей ==>',d); 
writeln('количество нечётных делителей ==>',i); 
writeln('количество чётных делителей ==>',g);
writeln('количество делителей ==>',f); 
writeln('количество делителей больших b ==>',n); 
end.

Program kursz5; //Название программы
uses crt; //Подключение модуля crt
const n=10; //Определение неизменяемых переменных
const m=10;
var //Описание переменных 
i,j,max,min:integer;
a:array[1..n,1..m] of integer; //(Ввод) Объявление массива
begin
randomize; //Подключение датчика случайных чисел
for i:=1 to n do //Ввод чисел для переменных массива 
for j:=1 to m do
a[i,j]:=random(100); //Ввод случайных чисел
max:= a[1,1]; //Присвоение к max элементах [1,1]
min:= a[1,1]; //Присвоение к min элементах [1,1]
for i:=1 to n do  //Будем делать пока i < n
begin
for j:=1 to m do //Будем делать пока i < m
begin
if a[i,j] > max then  // если элемент массива больше max будем делать что ниже
max:= a[i,j]; //(Вывод max элемента НЕ ПРАВИЛЬНО) Здесь происходит присвоение к переменной max, Но никак не вывод
if a[i,j] < min then  //если элемент массива меньше min будем делать следующее
min:=a[i,j]; //(Вывод min элемента) Тоже самое, здесь присвоение к переменной min
write(a[i,j]:5); - Здесь уже вывод
end;
writeln; 
end;
writeln(); 
writeln('max=',max,' min=',min); //Вывод max и min значений
end.