Question

Решите задачу на паскаль
Прошу помогите мне!! ​

Answer 1

Ответ:

Program maks;

Var a,b,c,d: real;

begin

Writeln ('Введите x:');

Readln  (a);

b:=a*2;

c:=a*a-16;

d:=b/c;

Writeln ('y=',d);

end.

Answer 2

var x,y: real;

begin

readln(x);

y:=(2*x)/(x*x-16);

write('y=',y);

end.