D1)прямая горизонтальная линия
2) любой из этих рисунков
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.
Фомулы:
N =
, где
N - мощность алфавита,
i - количество бит на 1 символ.
V = K * I, где
V - объем,
K - количество символов в сообщении.
Количество бит на 1 символ у племени Мульти:
N =
,
32=
,
i = 5 бит.
Количество бит на 1 символ у племени Пульти:
N =
,
64=
,
i = 6 бит.
Найдем объем информации Мульти:
V
₁ = K * I,
V₁ = 80 * 5 = 400 бит.
Найдем объем информации Пульти:
V₂ = K * I,
V₂ = 70 * 6 = 420 бит.
Сравним объемы:
V₂ - V₁ = 20 бит
Ответ: Объем информации племени Пульти больше племени Мульти на 20 бит.