Question

Паскаль. Напишите программу, которая вычисляет значение функции :

Answer 1

var x:real ;

begin

readln(x);

if x>3 then writeln((x*x+2)/(x-3))

else writeln (2*x*x-5)

end.