<em>Ответ прибл 6.5</em>
количество равновероятных событий в лото = 90
N=2^i
90=2^i
log 90 =log 2^i (логарифм по основанию 2)
i log 2 =log 90 (так log 2 =1 по основанию 2)
i=log 90 = lg 90 /lg 2 =1.95 / 0.30 =6.5 бит
Для начала
КОИ-8 =1 символ равен 8 бит
Для таго, чтобы найти Iобьем нужно=i×n(I обьем= 1 символ чем кодируеться здесь 8 битами[i] × кол.строк × кол. символов{Символы считаются все т.е:пробел , буква , цыфра , знаки препинания и т.д})
n=кол.строк × кол. символов
Iобьем=8×57(точку в конце предложения ,я считал)=456 бит=57байт=0,05кбайт
Ответ:456 бит=57байт=0,05кбайт (В чем записать ответ в этой задаче в битах , в байтах и кбайтах, я незнаю , так что пиши на своё усмотрение;Но лутше в байтах)
{Я специально запишу в форме программ, чтобы Вам стал более понятен синтаксис. Нужные Вам выражения находятся над процедурами writeln()}
1. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a+b);
writeln(c);
end.
2. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=(a+b)/(a-b);
writeln(c);
end.
3. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqr(a+b);
writeln(c);
end.
4. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a)+sqrt(b);
writeln(c);
end.
5. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
11. var f,m,a:integer;
begin;
m:=3;
a:=2;
f:=m*a;
writeln(f);
end.
12. var c,z,b:real;
begin;
z:=2;
b:=1;
c:=z*sqrt(b+3*sqrt(b));
writeln(c);
end.
13. var a,c,k:real;
begin;
a:=1;
k:=2;
c:=sqrt(a)/sqr(k);
writeln(c);
end.
14. var k,f,b,c:real;
begin;
f:=1;
b:=2;
c:=3;
k:=(f+b+c)/3;
writeln(k);
end.
15. var k,a,b,c:real;
begin;
a:=1;
b:=2;
c:=3;
k:=a*(b/c);
writeln(k);
end.
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>