Ответ:
по-моему автомобиль Но это неточно
Var
x0, xk, dx, e, x, aa: real;
i: integer;
function f(x, a: real): real;
begin
if x < 0 then
f := 1 / Tan(x) + sqrt(1 + abs(x - 2))
else if x = 0 then
f := (a + x) + sin(Pi)
else
f := a * x * cos(x * Pi);
end;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
write('a =');
readln(aa);
x := x0;
writeln(' x ':10, ' | ', ' F(x,a) ':10);
repeat
writeln(x:10:3, ' | ', f(x, a):10:3);
x := x + dx;
until x >= xk;
end.
Ответ:
16
Объяснение:
преобразуем высказывание:
(x>11) И (x<17)
тут получается диапазон [12;16]
наибольшее 16
Программа для решения задачи и пример её работы - в прилагаемом файле.
Первый вопрос б) банкоматы
Второй вопрос в)или д)