Условия довольно чётко обозначены, так что ввод и вывод не оформлял.
Program SpTrap;
var y , x :integer;
begin
writeln ('ВВеди переменную x');
readln (x);
y:=0
<span>у=(х+1)/2х;
writeln('y=',y);
end
-----------------------------------------------------------------
</span>1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма
Ответ:
отключи плей маркет в принципе, скачай установи и включи
Пишешь в первой строке: х, затем числа, для которых посчитать
во второй строке: у, затем:
=ЕСЛИ(B1<-1;-4*B1+2+SIN(B1);ЕСЛИ(B1<0;ABS(B1);2*B1*LN(B1+1)))