Декодируйте, !
ну, вот что делать с этими вирусами? они пробрались в текстовые файлы и заменили буквы на цифры. а еще они удалили окончание фразы. чего не хватает?
21 3-6-13-10-12-16-4-16 4-10-17-17-16-12-18-1-20-1 19-17-18-16-19-10-13-10: «17-18-1-3-5-1 13-10, 25-20-16 4-6-15-10-1-13-30-15-16-19-20-30 – 31-20-16 2-16-13-6-9-15-30? » «2-6-9-21-19-13-16-3-15-16, – 16-20-3-6-20-10-13 4-10-17-17-16-12-18-1-20, – 15-16 16-25-6-15-30 18-6-5-12-1-33 10 »
const
MAX = 20;
var
s:string;
stack:array[1..MAX] of string;
top:integer;
i:byte;
procedure Push(ch:string);
begin
if top>=MAX then WriteLn('Stask full')
else
begin
stack[top]:=ch;
top:=top+1;
end;
end;
function Pop:string;
begin
top:=top-1;
if top<1 then
begin
WriteLn('Stack underflow');
top:=top+1;
end
else Pop := stack[top];
end;
begin
top:=1;
s:='<asdf<asdf>asdf>';//правильная строка
for i:=1 to length(s) do
begin
if s[i]='<' then Push('<');
if s[i]='>' then
if Pop()<>'<' then WriteLn('Ошибка!');
end;
if top<>1 then WriteLn('Ошибка!');
top:=1;
s:='<asdf<asdfasdf>';//не правильная строка
for i:=1 to length(s) do
begin
if s[i]='<' then Push('<');
if s[i]='>' then
if Pop()<>'<' then WriteLn('Ошибка!');
end;
if top<>1 then WriteLn('Ошибка!');
end.
Объяснение:
9. 1312 Кбайт
10. 14 сек.
Объяснение:
9. Передача велась 42 секунды со скоростью 256000 бит/с, следовательно, было передано 256000 * 42 бит информации. Для перевода в Кбайт, полученное число необходимо поделить на 8 (бит -> байт) и на 1024 (байт -> Кбайт).
Размер файла: 256000 * 42 / 8 / 1024 = 1312,5
10. Варианта два: перевести скорость в Кбайт или объем сообщения из Кбайт в биты.
Воспользуемся первым вариантом: 128000 / 8 / 1024 = 15,625 Кбайт/с.
Время передачи составило: 229 / 15,625 = 14,656 сек.