16. Составить алгоритм и написать решение задачи на Паскале: Вычислить формулу с фотографии, где х - произвольное число, введенное пользователем с клавиатуры.

program apsojfskd; var x:integer; a, b, c:real; beginreadln (x);a:=2*x-17*sqrt(x-7); b:=3*x-12; if x > 4 then b:=3*x-12; if x < 4 then b:=12-3*x; c:=a/b; writeln (c); end.

Зачем так из вращаться, если в паскале есть функция модуля abs?

искал в интернете, как писать модуль в паскале, не нашёл, поэтому решил альтернативу

Формулаy=(2x-17√(x-7))/|3x-12|ПрограммаProgram yvar x, y: realBEGINwrite ('Vvedite x');readln (x);y=(2*x-17*sqrt(x-7))/abs(3*x-12);writeln ("y = ", y);END.

ОДЗ корня: , так что  в модуле получится не может, преобразовав его в . Программа: program apsojfskd; var x:integer; a, b, c:real; beginreadln (x);a:=2*x-17*sqrt(x-7); b:=3*x-12; if x > 4 then b:=3*x-12; if x < 4 then b:=12-3*x; c:=a/b; writeln (c); end. Строки с if убрать можно в принципе, но я сделал это для вида, типа модуль в выражении присутствует.