<span>Program flint</span>
<span>var </span>
<span>S, i: integer; </span>
<span>begin </span>
<span>writeln('Введите S'); </span>
<span>readln(S); </span>
<span>for i:=1 to 10 do </span>
<span>s:=s*1,03/0,98; </span>
<span>writeln('Реальная сумма через 10 лет: '); </span>
<span>writeln(S); </span>
<span>readln(); </span>
<span>end.</span>
1) По формуле Шеннона 2^i=N, где N - мощность, а i - кол-во бит, которыми кодируется каждый симфол. Таким образом найдём i=6. 6 бит на каждый символ.
Символов во фразе 4+1+4+1+4+1=15. 15*6=60бит.
Ответ: 60 бит.
2) 2гб=2*2^10мб=2*2^20кб=2*2^30байт=2^33бит=2^34 бит
3)125124Кбит=125124/2^13=31281/2^11=31281/2048=15,27
270 получается потому In=3умножить на 8 и на 18!вот и ответ !
Program drawFigure;
uses
graph;
var
gD,gR:integer;
procedure drawIt(x,y,lineLong,time:word);
var
ci:byte;
begin
moveTo(x,y);
lineTo(GetX+lineLong,GetY);
for ci:=1 to time do
begin
lineTo(GetX,GetY-lineLong); lineTo(GetX+lineLong,GetY);
lineTo(GetX,GetY+lineLong); lineTo(GetX+lineLong,GetY);
end;
end;
begin
initgraph(gD,gR,'');
drawIt(80,80,50,2);
readln; closeGraph;
<span>end.</span>