Лови)
var
x: real;
begin
x := 1;
while x <= 5 do
begin
writeln('y(', x:1:1, ') = ', ln(x) - exp(-1 * x));
x := x + 0.1;
end;
end.
Только для 7, т.к рассмотрим вторую скобку без инверсии
7 0
9 1
11 1
12 1
Инверсия даст (1 0 0 0) (записала по горизонт., чифры соответствуют 7,9 11,12)
В первой скобке с учетом инверсии получ-ся (1 0 0 0), перемножаем, получаем 1 только в одной строке - напротив 7
уже было такое.. иногда пользуйтесь поиском чтоль.
1) полностью наполнить 5 литровый бидон
2)из 5 литровой в 3х литровую переливаем масло( в 5 литровой остаётся 2)
3)3х литровую в общую ёмкость
4) из 5 литровой в 3х литровую переливаем оставшиеся 2 литра из 5 литровой
5) доверху наполняем 5 литровую
6) из 5 литровой доверху наполняем 3х литровую
7) из трёхлитровой переливаем всё в бидон, в 5ти литровой осталось 4
пишем бидоны(их кол-во), затем проделываем вот что:
8 5 3
8 0 0
3 5 0
3 2 3
6 2 0
6 0 2
1 5 2
1 4 3
4 4 0
ну то есть разливали масло по каждому бидону, пока не получится результат
или так
1. из 8 в 3 (там останется 5)
2. из 3 в 5
3. из 8 в 3 (там останется 2)
4. из 3 в 5 долить 2 (остается 1)
5. из 5 в 8 (там стало 7)
6. из 3 в 5
7. из 8 в 3 (там стало 4)
8. из 3 в 5 (там тоже стало 4)
Монитор
-----------------------------------
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>