ОЧЕНЬ ХОТЯ БЫ 1 НОМЕР Выполните решение задач.
1. Документ объёмом 30 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать по каналу связи без использования архиватора. Какой быстрее и насколько, если:
• средняя скорость передачи данных по каналу связи составляет 223 бит в секунду;
• объём сжатого архиватором документа равен 40% исходного;
• время, требуемое на сжатие документа, — 22 секунды, на распаковку — 1 секунду?
В ответе напишите букву А, если быстрее А, или Б, если быстрее Б. Сразу после буквы напишите число, обозначающее, на сколько секунд один быстрее другого. Так, например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23. Единицы измерения «секунд», «сек.», «с.» к ответу добавлять не нужно.
2. Документ объёмом 30 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать по каналу связи без использования архиватора. Какой быстрее и насколько, если:
• средняя скорость передачи данных по каналу связи составляет 220 бит в секунду;
• объём сжатого архиватором документа равен 25% исходного;
• время, требуемое на сжатие документа, — 13 секунд, на распаковку — 48 секунд?
В ответе напишите букву А, если быстрее А, или Б, если быстрее Б. Сразу после буквы напишите число, обозначающее, на сколько секунд один быстрее другого. Так, например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23. Единицы измерения «секунд», «сек.», «с.» к ответу добавлять не нужно.
3. Документ объёмом 16 Мбайт можно передать с одного компьютера на другой двумя
А. Сжать архиватором, передать архив по каналу связи, распаковать.
Б. Передать по каналу связи без использования архиватора.
Какой быстрее и на сколько, если:
· средняя скорость передачи данных по каналу связи составляет 221 бит в секунду;
· объём сжатого архиватором документа равен 25% от исходного;
· время, требуемое на сжатие документа, — 15 секунд, на распаковку — 4 секунды?
В ответе напишите букву А, если А быстрее, или Б, если быстрее Б. Сразу после буквы напишите, на сколько секунд один быстрее другого. Например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23. Слов «секунд», «сек.», «с» к ответу добавлять не нужно.
4. Документ объёмом 60 Мбайт можно передать с одного компьютера на другой двумя
А. Сжать архиватором, передать архив по каналу связи, распаковать.
Б. Передать по каналу связи без использования архиватора.
Какой быстрее и на сколько, если:
– скорость передачи данных по каналу связи составляет 223 бит в секунду;
– объём сжатого архиватором документа равен 55% исходного;
– время, требуемое на сжатие документа, — 16 секунд, на распаковку — 7 секунд?
В ответе напишите букву А, если быстрее А, или Б, если быстрее Б. Сразу после буквы напишите число, обозначающее, на сколько секунд один быстрее другого.
Так, например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23. Единицы измерения «секунд», «сек.», «с» к ответу добавлять не нужно.
type Date = record
day : 1..31;
mounth : 1..12;
year : integer;
end;
Person = record
SurnameName : string;
Birthday : date;
end;
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;
//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;
for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;
WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.