Составьте программу вычисления значения выражения, где a, x – целые числа. Значения a, x введите с клавиатуры:
Решение:
Program P1;
Var a,x:Integer; y: Real;
Begin
Write('x='); Readln (x);
Write('a='); Readln (a);
y:=abs(x-3*a)/(x*x+2);
Write('Ответ:',y);
End.