Question

Составить программу в Pascal ABC.
      cos^2x-5
A= _______
      √x^2+3

Answer 1

//прога на Pascal`e
var
x: real;

function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;

begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.