Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
<span>1й элемент реализует функцию A=
,
2й - B=</span><span><span>
, 3й - F=
Таблица истинности
x
y
z
A
B
F
</span><span>0
0
0
1
1
0
</span><span>0
0
1
1
0
0
</span><span>0
1
0
1
1
0
</span><span>0
1
1
1
0
0
</span><span>1
0
0
1
1
0
</span><span>1
0
1
1
0
0
</span><span>1
1
0
0
1
0
</span><span>1
1
1
0
0
1
</span></span>
Из таблицы видно, что F=
При использовании алфавита из 8 символов для записи одного символа требуется log(2)8 = 3 бита; при использовании алфавита из 16 символов - log(2)16 = 4 бита. Количество информации в первом тексте = K*3, во втором тексте - K*4; соотношение объемов = K*3/K*4 = 0.75, т.е. объем информации в первом тексте меньше, чем объем информации во втором.
1)Б
2)или А или Г
3)В
4)Б
9)
10)А
8)А
7)А
6)А
5) или А или В