Ответ:
Задача простая, если на обыкновенном паскале то вот.
В комментариях ошибка, перевод из рад. в градусы на 14 строке.
Program mas2;
uses crt;
var
a:array[1..5] of integer;
b:array[1..5] of integer;
t,i,m1,m2:integer;
begin
randomize;
clrscr;
writeln('Vvedite T');
readln(t);
for i:=1 to 5 do
a[i]:=random(t+1);
b[i]:=random(t+1);
if a[i]<t then m1:=m1+1
else
if b[i]<t then m2:=m2+1;
if m1>m2 then
begin
for i:=1 to 5 do
write(' ',a[i])
end
else
for i:=1 to 5 do
write(' ',b[i]);
writeln;
end.
Может не совсем красиво, но зато работает)))
Lazarus состоит из 4 окон
9) I=650 бит
K=130 символов
i=I/K
i=650/130=5 бит
N=2^i
N=2^5=32 - мощность алфавита
Ответ:32
11)I=375 байтов=3000 бит
K=500 символов
i=I/K
i=3000/500=6 бит
N=2^i
N=2^6=64 - мощность алфавита
Ответ:6 бит и 64 символа
12)N=64
N=2^i
i=6 бит
K=3*40*60=7200 символов
I=K*i
I=7200*6=43 200 бит=5400 байт
Ответ:5400 байт
13)I=9000 байт=72 000 бит
K=6*40*60=14 400 символов
i=I/K
i=72 000/14 400=5 бит
N=2^i
N=2^5=32 - мощность алфавита
Ответ:5 бит и 32 символа
14)i=7 бит (берем 7, так как мощность алфавита у нас равняется 100, и если мы возьмем 6, то этого уже будет недостаточно)
K=8192
I=K*i
I=8192*7=57344 Бита =7168 Байта=7 Кбайта
Ответ: 7 Кбайт
15)N=32
N=2^i
i=5 бит
K(1)=256
I(1)=256*5=1280 бит=160 байт - кол-во информации на 1 носителе
K(2)=256*512=131 072
I(2)=131 072*5=655 360 бит=82 920 байт=80 Кбайт - кол-во информации во всем своде законов
Ответ:160 байт и 80 Кбайт
