Может быть так:
1тепловоз отцепляет свои 2 вагона.Затем 1тепловоз заезжает с 1 вагоном в тупик. Оставшиеся вагоны 2 тепловоз толкает вперед, давая 1тепловозу выехать позади него. Потом 2 тепловоз сдает назад, завозит 2 вагона 1-го тепловоза в тупик и едет вперед. Когда 2 тепловоз проедет, 1тепловоз возвращается и забирает свои 2 вагона
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6
Заметим, что 6 в 7-ичной системе счисления - максимальная цифра, поэтому 666 = 1000 - 1.
666 + 543 = 1000 + 543 - 1 = 1542
Ответ:
1. =A3*$B$3
2. =$B$1+$B$3 (не изменится)
3. =A5-B6
4. =B3+$A$1
Объяснение:
Во всех задачах при копировании строка увеличивается на 2 (с 1 на 3-ю)
а столбец не изменяется (С)
Поэтому при копировании столбец (буква) меняться не будут, а строка (цифра) будет меняться, если перед ней нет знака "$"
"$" в ссылке перед столбцом или строкой означает, что этот столбец или строка не изменяется при копировании
Const
x = 0.75;
eps = 0.5e-3;
var
s, y1, y2, n, sgn, x2, prevf: real;
begin
{для второго члена последовательности}
x2 := sqr(x);
prevf := 2;
y1 := 1; {первый член последовательности}
y2 := x2 / prevf; {второй член последовательности}
s := y1; {накопленная сумма ряда}
n := 1; {последний член последовательности в сумме}
sgn := 1; {знак очередного члена ряда}
while abs(y1 - y2) >= eps do
begin
s := s + y2; {продолжаем накопление}
n := n + 1;
y1 := y2;
x2 := x2 * sqr(x);
prevf := prevf * (2 * n - 1) * 2 * n;
sgn := -sgn;
y2 := sgn * (2 * n - 1) * x2 / prevf
end;
writeln('Сумма ряда из ',n, ' членов равна ', s)
end.
Тестовое решение:
Сумма ряда из 5 членов равна 1.24291779994965