Question

Дано х. Вычислите у, если: Запрограммируйте на любом языке) Пожалуйста

Answer 1

Program one;
var
x,y:real;
begin
write('Vvedite  X=>');Readln(x);
if x>2 then y:=1/(x*x+4*x+5) else y:=x*x+4*x+5;
Writeln ('Y=',Y);
end.