Дано: ИНФОРМАТИКА, i-?
Решение:
<span> i=log2(1/P)
</span>И: i=log2(1/0,062)=4 бит
Н: i=log2(1/0.053)=4,24 бит
Ф: i=log2(1/0.002)=8,97 бит
О: i=log2(1/0.090)=3,47 бит
Р: i=log2(1/0.040)=4,64 бит
М: i=log2(1/0.026)=5,27 бит
А: i=log2(1/0.062)=4,01 бит
Т: i=log2(1/0.053)=4,24 бит
К: i=log2(1/0.028)=5,16
i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит
Ответ: 52,01 бит
var n,i,rez:integer;
begin
write('Введите n: ');
readln(n);
rez:=0;
for i:=1 to n do
if odd(i) then rez:=rez+i
else rez:=rez-i;
writeln('rez=',rez);
end.
Корпус,процессор,материнская плата,к<span>улер для процессора ,в</span>идео карта,оперативная память,жесткий диск,б<span>лок питания.</span>
Program inf;
var
diag, storona, diag2, otvet, S: real;
begin
write('Введите сторону ');
readln(storona);
write('Введите диагональ ');
readln(diag);
diag := diag / 2;
diag2 := sqrt(sqr(storona) - sqr(diag));
S := diag * diag2 * 2;
writeln(S: 4: 2);
end.