Ориентируясь на то, что написано на картинке, уточняю задачу за тебя:
Даны запросы и количество страниц по ним:
Футбол | Хоккей = 20000 страниц
Футбол = 14000 страниц
Хоккей = 16000 страниц
И надо найти, сколько страниц будет по запросу Футбол & Хоккей.
Найдем сколько страниц содержат ТОЛЬКО хоккей, без футбола: ~Ф&X = Ф|X - Ф = 20000 - 14000 = 6000
ТОЛЬКО футбол, без хоккея: Ф&~Х = Ф|Х - Х = 20000 - 16000 = 4000
И чтобы найти все страницы, которые содержат И футбол, И хоккей:
Ф&Х = Ф|Х - Ф&~X - ~Ф&Х = 20000 - 6000 - 4000 = 10000
Ответ: 10000
Var a:array [1..10] of Integer; i,temp:Integer; f:Boolean;
begin
Randomize;
for i:=1 to 10 do
a[i]:=Random(100);
for i:=1 to 10 do
write(a[i]:3);
Writeln;
repeat
f:=False;
for i:=1 to 9 do
begin
if a[i]>a[i+1] then
begin
f:=True;
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
end;
until not f;
for i:=1 to 10 do
write(a[i]:3);
temp:=0;
for i:=1 to 3 do
temp:=temp+a[i];
Writeln;
Writeln(temp);
Readln;
<span>end.</span>
Program Zadacha;
Const max = 255;
Var t: Text;
i: Integer;
s: String[max];
Begin
Assign(t, 'd:\input.txt');
Reset(t);i := 2;
While Not Eof(t) Do
Begin
If i > max Then
Break;
Read(t, s);
End;
Close(t);
Assign(t, 'd:\output.txt');
Rewrite(t);
Write(t, s[1]);
Close(t);
<span>End.</span>
1.а
2.б
3.в
4.г
5.д
6.е
7.ё
8.ж
9.з
10.и
11.й
12.к
13.л
14.м
15.н
16.о
17.п
18.р
19.с
20.т
21.у
22.ф
23.х
24.ц
25.ч
26.ш
27.щ
28. Ъ
29.ы
30.ь
31.э
32.ю
33.я
5 символов
в 34 байт 272 бит (34*8)
в 16 битной кодировке будет 17 символов (272/16)
в 8 битной кодировке будет 136 бит (17*8)
176-136=40 бит (сколько памяти занимают добаленные символы)
40/8=5 (символов)
