Документ объемом 10 мбайт можно передать с одного компьютера на другой двумя а) сжать архиватором, передать архив по каналу связи, распаковать б) передать по каналу связи без использования архиватора. какой быстрее и насколько, если – средняя скорость передачи данных по каналу связи составляет 2 в степени 20 бит в секунду, – объем сжатого архиватором документа равен 10% от исходного, – время, требуемое на сжатие документа – 20 секунд, на распаковку – 2 секунды? в ответе напишите букву а, если а быстрее или б, если быстрее б. сразу после буквы напишите количество секунд, насколько один быстрее другого. так, например, если б быстрее а на 23 секунды, в ответе нужно написать б23. слов «секунд», «сек.», «с.» к ответу добавлять не нужно.
Посчитаем объем земли, который был снят.
Всю землю можно разделить на фигуры толщиной 1 метр, в основании которых трапеции с высотой 1 м и основаниями - двумя соседними измерениями высоты. Тогда объем каждой фигуры V(i) = (h(i) + h(i + 1)) / 2, полный объем V = V(1) + V(2) + ... + V(N - 1) = h(1)/2 + (h(2) + h(3) + ... + h(N - 2)) + h(N - 1)/2
Объем земли, который использовался для засыпания, равен V = h (N - 1).
Эти объемы, конечно, равны, тогда h = (h(1)/2 + h(N - 1)/2 + (h(2) + h(3) + ... + h(N - 2))/(N - 1)
PascalABC.NET 3.2.1518:
begin
var N := ReadInteger;
print(ReadSeqInteger(N)
.Select((x, i) -> (i = 0) or (i = N - 1) ? x/2 : x)
.Sum / (N - 1))
end.
С вводом-выводом в файл:
begin
var f := OpenRead('INPUT.TXT');
var N := f.ReadInteger;
var S := f.ReadInteger / 2;
for var i := 2 to N - 1 do
S += f.ReadInteger;
S += f.ReadInteger / 2;
print(S / (N - 1))
end.