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. Конец алгоритма