Vara,b,c,i:longint;
m:array[1..1000] of longint;
Begin
c:=0;
readln(a);
readln(b);
for i:=1 to b do
begin
read(m[i+c]);
if (m[i+c]<0) and (c=0) then
begin
m[i+1]:=a;
c:=1;
end;
end;
for i:=1 to b+1 do
write(m[i],' ');
<span>End.</span>
Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец
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
1. дано объем текста =3,5 Кб=3584 байта
в компьютерный тексте 1 символ кодируется 1 байтом
значит в тексте 3584 символа