Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
Var p,m,v:real; i:integer;
begin
m:=0.45;
p:=0.5-0.1;
for i:=0 to round((1-0.5)/0.1) do
begin
p:=p+0.1;
v:=m/p;
writeln(p:4:1,' кг/м^3, V = ',v:5:3,' м^3');
end;
end.
Результат:
<span> 0.5 кг/м^3, V = 0.900 м^3
0.6 кг/м^3, V = 0.750 м^3
0.7 кг/м^3, V = 0.643 м^3
0.8 кг/м^3, V = 0.563 м^3
0.9 кг/м^3, V = 0.500 м^3
1.0 кг/м^3, V = 0.450 м^3</span>
Ну, для начала определим, сколько битов в одном символе
![32=2^i=>i=5](https://tex.z-dn.net/?f=32%3D2%5Ei%3D%3Ei%3D5)
Значит, 5 бит/символ
В первых символах по 2 бита, ибо
![2^2=4](https://tex.z-dn.net/?f=2%5E2%3D4)
, а символа как раз 4
Итого,
![5*7+2=37](https://tex.z-dn.net/?f=5%2A7%2B2%3D37)
бит в слове из 8-ми букв
![37*10=370 bit](https://tex.z-dn.net/?f=37%2A10%3D370+bit)
<span>Вчера решал 238 вышло, могу ошибаться..
</span>