Может быть так:
1тепловоз отцепляет свои 2 вагона.Затем 1тепловоз заезжает с 1 вагоном в тупик. Оставшиеся вагоны 2 тепловоз толкает вперед, давая 1тепловозу выехать позади него. Потом 2 тепловоз сдает назад, завозит 2 вагона 1-го тепловоза в тупик и едет вперед. Когда 2 тепловоз проедет, 1тепловоз возвращается и забирает свои 2 вагона
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.
Сколько существует различных наборов значений логических переменных x1, x2, x3, x4, x5, x6, y1, y2, y3, y4, y5, y6, которые удов
000555000
Построим битовые цепочки для первого и второго уравнений. Они одинаковые:
x1 1 0 0 0 0 0 0
x2 1 1 0 0 0 0 0
x3 1 1 1 0 0 0 0
x4 1 1 1 1 0 0 0
x5 1 1 1 1 1 0 0
x6 1 1 1 1 1 1 0
y1 1 0 0 0 0 0 0
y2 1 1 0 0 0 0 0
y3 1 1 1 0 0 0 0
y4 1 1 1 1 0 0 0
y5 1 1 1 1 1 0 0
y6 1 1 1 1 1 1 0
В 3 уравнении если x1=1, то y1 обязательно должен быть равен 1. Если x1=0, значит y1 может быть равен и 1, и 0.
Получается, что первому столбцу в цепочке иксов соответствует один набор в цепочке игриков, остальным шести столбцам иксов - семь столбцов игриков.
Получается, что количество решений равно 1 + 6*7 = 43
