1. Кто и в каком году построил машину на языке Паскаль? А) Блез Паскаль в 1642 году
В) Джон Непер в 1761 году
В) Исаак Ньютон в 1660 году
2. Кто разработал арифмометр?
А) Чебышев
Б) Лейбенц
В) Ада Лавлейс
3. Кто построил желчегонный аппарат?
А) Ада Лавлейс
Б) Блез Паскаль
В) Герман Холерит
4. Как назывался первый электронный компьютер? Он в каком году это было сделано
A) был переименован в ENIAC в 1946 г.
В) Машина Паскаля, 1642 г. Б
) В 1880 году как холерная машина
Посчитаем объем земли, который был снят.
Всю землю можно разделить на фигуры толщиной 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.