В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&». В таблице приведены за и количество найденных по ним страниц некоторого сегмента сети Интернет.
За Найдено страниц
(в тысячах)
Иванов 3040
Петров 3890
Иванов | Петров 4391
Какое количество страниц (в тысячах) будет найдено по за Иванов & Петров? Считается, что все за выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения за
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор (0,10)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-2)
сместиться на вектор (-3,-2)
сместиться на вектор (3,-2)
сместиться на вектор (0,-2)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,0)
опустить перо
сместиться на вектор (4,10)
сместиться на вектор (4,-10)
поднять перо
сместиться на вектор (-2,5)
опустить перо
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (7,-5)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (8,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (-2,2)
опустить перо
сместиться на вектор (0,8)
сместиться на вектор (-4,0)
сместиться на вектор (0,-8)
поднять перо
сместиться на вектор (7,-2)
опустить перо
сместиться на вектор (0,10)
поднять перо
сместиться на вектор (0,-10)
опустить перо
сместиться на вектор (5,10)
сместиться на вектор (0,-10)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,10)
сместиться на вектор (3,-7)
сместиться на вектор (3,7)
сместиться на вектор (0,-10)
поднять перо
кон
uses crt;
const n=10;
var a: array[1..n] of integer;
i,j,k: byte; c: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do begin
a[i]:=random(19)-9;
write(a[i]:3); end; writeln;
k:=0; for i:=1 to n-1 do f
or j:=i+1 to n do if a[i]>a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
inc(k);
end;
writeln('результат сортировки: ');
for i:=1 to n do write(a[i]:3);
writeln;
writeln('кол-во перестановок = ',k);
end.