Question

Составить программу для вычисления данного выражения:
Y=1/SQR(x)-13x/(x^2-36)-18

Answer 1

uses crt;
var x:integer;
y:real;
begin
read (x);
y:=1/sqr (x)-13*x/(sqr (x)-36)-18;
write (y);
end.