Система передачи данных состоит из устройства, буфера памяти и принимающего устройства. работа системы определяется следующими правилами:
устройство последовательно передает в буфер памяти пакеты данных. перед началом передачи очередного пакета устройство проверяет, есть ли в буфере памяти место для размещения этого пакета. если место есть – резервирует объем памяти, требуемый для хранения пакета, и начинает передачу. если места нет – останавливает передачу данных и больше не возобновляет. передача данных в буфер памяти занимает 10 секунд. незамедлительно по завершении передачи пакета, устройство предпринимает попытку передать следующий пакет данных.
принимающее устройство постоянно опрашивает буфер памяти. как только в нем обнаруживается целиком переданный новый пакет, оно начинает загружать его из буфера памяти. загрузка пакета занимает 11 секунд. в один момент времени принимающее устройство может загружать только один пакет и загрузка пакета не может быть прервана. как только загрузка пакета данных завершена, в буфере освобождается все зарезервированное под него место. до этого момента использовать зарезервированную память для хранения других пакетов невозможно. принимающее устройство опрашивает буфер памяти и совершает загрузку из него пакетов, даже если устройство остановило свою работу.
объем памяти буфера позволяет одновременно хранить ровно 3 пакета данных.
процессы резервирования и освобождения памяти в буфере происходят мгновенно.
определите, сколько пакетов получится передать за один сеанс использования такой системы.
в ответе укажите целое число.
пример записи ответа:
123
должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо б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.