те которые занимаются трофическом построениями
1-16 = 2^4 т.е. 4 бит на символ
2-составить таблицу двоичного кода
какого именно?
3-найти информационный обьем двоичного кода
а-111000 - 6 бит
б-1010 - 4 бита
в-101- 3 бита
г-1010101111 - 10 бит
4-Перевести обьем из одной единице измерения в другую
а 70 мб-бит = 70*1024*1024*8 бит
450 мб-бит = 450*1024*1024*8 бит
2гб-байт = 2*1024*1024*1024 байт
1.8 гб-байт = 1,8*1024*1024*1024 байт
5-Минимальная мощность алфавита - 2 символа наверное
6-Минимальный информационный обьем 1 символа - 1 бит
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.
</span>