Begin
var m,u,p,t:integer;
for var i:=10 to 99 do
if i mod 7 =0 then
begin
m:=m+i; u:=u+1;
end;
Writeln('Среднее чисел которые дклятся на 7=',m/u);
for var i:=1 to 99 do
if i mod 5 = 0 then
begin
p:=p+i; t:=t+1;
if t > 10 then break;
end;
Writeln('Среднее чисел которые дклятся на 5=',p/t);
end.
Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
Дано:
N1=256
N2=32
k1=k2=k
Найти:
![\frac{I_{1}} {I_{2}}](https://tex.z-dn.net/?f=%5Cfrac%7BI_%7B1%7D%7D+%7BI_%7B2%7D%7D)
Решение
i-вес одного символа в битах
N- мощность алфавита, или количество символов
- информационный объем
![2^{i} =N](https://tex.z-dn.net/?f=2%5E%7Bi%7D+%3DN)
![i_{1} =8](https://tex.z-dn.net/?f=i_%7B1%7D+%3D8)
![i_{2} =5](https://tex.z-dn.net/?f=i_%7B2%7D+%3D5)
![I_{1} =8k](https://tex.z-dn.net/?f=I_%7B1%7D+%3D8k)
![I_{2} =5k](https://tex.z-dn.net/?f=I_%7B2%7D+%3D5k)
![\frac{I_{1}}{I_{2}} =\frac{8k}{5k} =\frac{8}{5} =1.6](https://tex.z-dn.net/?f=%5Cfrac%7BI_%7B1%7D%7D%7BI_%7B2%7D%7D+%3D%5Cfrac%7B8k%7D%7B5k%7D+%3D%5Cfrac%7B8%7D%7B5%7D+%3D1.6)
Ответ. Первый объем больше второго в 1.6 раз
Ответ 3 ахах фотки нельзя кидать
Название по-моему называется: Excel, точно не знаю, если что извените...