1. Ниже приведены за к поисковому серверу.
Постройте графические схемы для каждого из за Расположите обозначения за в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому за Школа | Бизнес
Б) Школа & Математика & Интернет
B) Математика | Декарт | Реферат
Г) Декарт
2. В таблице приведены за и количество страниц, которые нашел поисковый сервер по этим за в некотором сегменте Интернета:
Угол | Прямая 350
Угол 100
Прямая 210
Какое количество страниц будет найдено по за Угол & Прямая??
3. В таблице приведены за и количество страниц, которые нашел поисковый сервер по этим за в некотором сегменте Интернета:
Мадрид & Париж 340
Мадрид & (Берлин | Париж) 885
Мадрид & Берлин415
Какое количество страниц будет найдено по за Мадрид & Париж & Берлин?
a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;
пока i<=50 делай
нц
если a[i]>max то
нц
max:=a[i];
n_max:=i;
кц
если a[i]<min то
нц
min:=a[i];
n_min:=i;
кц
если (i mod 2)==0 то
sum:=sum+a[i];
k:=k+1;
кц
srednee_znachenie:=sum/k;
//
var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;
begin
max:=a[1];
min:=a[1];
for i:=10 to 50 do
begin
if a[i]>max then
begin
max:=a[i];
n_max:=i;
end;
if a[i]<min then
begin
min:=a[i]
n_min:=i;
end;
if ((i mod 2)=0) then
begin
k:=k+1;
sum:=a[i]+sum;
end;
end;
end;
sr:=sum/k;
end.
function BinToOct(s:string):string;
// переводит двоичную триаду в восьмеричную цифру
begin
case s of
'000':Result:='0';
'001':Result:='1';
'010':Result:='2';
'011':Result:='3';
'100':Result:='4';
'101':Result:='5';
'110':Result:='6';
'111':Result:='7';
end
end;
begin
var s2:=ReadlnString('Введите целое двочное число');
var k:=s2.Length mod 3;
if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины
var s8:='';
for var i:=1 to s2.Length div 3 do
s8:=s8+BinToOct(Copy(s2,3*i-2,3));
Writeln(s8);
end.
Пример
Введите целое двочное число 10101100001
2541