должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
function BinToDec(a:string):integer;
var
i ,r:integer;
begin
r := 0;
for i := length(a) downto 1 do
r := r + StrToInt(a[i]) * Pow(2, length(a) - i);
BinToDec := r;
end;
var
s:array[1..100] of string;
i:integer;
begin
s[1] := '11001101';
s[2] := '11100101';
s[3] := '11110010';
s[4] := '00100000';
s[5] := '11110101';
s[6] := '11110011';
s[7] := '11100100';
s[8] := '11100000';
s[9] := '00100000';
s[10] := '11100001';
s[11] := '1110010';
s[12] := '11100111';
s[13] := '00100000';
s[14] := '11101110';
s[15] := '11100001';
s[16] := '11110000';
s[17] := '11100000';
s[18] := '00101110';
for i := 1 to 18 do
write(chr(BinToDec(s[i])));
end.
2 Кбайт/сек
Объяснение:
V = I / t, где
V - скорость передачи информации
I - количество информации в сообщении
t - время передачи сообщения
I = К * i, где
I - количество информации в сообщении
К - количество символов в тексте
i - количество информации, которое несет каждый символ алфавита
N = 2^i, где
N - мощность алфавита
i - количество информации, которое несет каждый символ алфавита
Дано:
t = 2 мин 8 сек = 128 сек = 2⁷ сек
N = 256 = 2⁸
К = 128 страниц * 32 строки * 64 символа = 2⁷ * 2⁵ * 2⁶ = 2¹⁸ символов
Найти:
V
2⁸ = 2^i
i = 8 бит = 1 байт
I = 2¹⁸ * 1 = 2¹⁸ байт
V = 2¹⁸ / 2⁷ = 2¹¹ байт/сек = 2 Кбайт/сек
1 мин = 60 сек
1 байт = 8 бит
1 Кбайт = 1024 байт = 2¹⁰ байт
Е) http
А) ://
Г) net
Д) .ru
Б) /
Ж) com
В) .pas