Іскласти програму обчислення значень функції f(x)=е^(-x )+ cos3x на відрізку [a; b] в точках xi=a+ih, де h=(b-a)/m, а=-1, в=4, м=10.

Var       x0, xk, dx, x: real; function f(x: real): real; begin       f : = exp(-x) + cos(3 * x); end; begin       write('введите промежуток и шаг ([a,b] h) ');       readln(x0, xk, dx);             x : = x0;       writeln(' x ': 10, ' | ', ' f(x) ': 10);             repeat               writeln(x: 10: 3, ' | ', f(x): 10: 3);               x : = x + dx;       until x > xk; end. пример вывода введите промежуток и шаг ([a,b] h) -1 4 0.5               x  |          f(x)       -1.000 |          1.728       -0.500 |          1.719         0.000 |          2.000         0.500 |          0.677         1.000 |        -0.622         1.500 |          0.012         2.000 |          1.096         2.500 |          0.429         3.000 |        -0.861         3.500 |        -0.445         4.000 |          0.862

Банка 7 литровая-банка 1 банка 4 литровая-банка 2 сосуд 1 и 2 для того, чтобы разделить наливаем в банку 1 и переливаем в банку 2, сливаем эти 4 литра в сосуд 1. в банке 1 оставалось 3 литра сливаем в сосуд 2. наливам в банку 2 и переливаем в банку 1(делаем так два раза), таким образом, в банке 2 останется 1 л сливаем в сосуд 1. остальное количество седа сливаем в сосуд 2. готово.