Дано действительное число x. Вычислить f(x) - Pascal ABC

Формулировка задачи:

Дано действительное число x. Вычислить f(x): Вот что вышло у меня, но тут, наверное, всё неправильно
var x:real;
begin
write('x=');
read(x);
if (x<=2) then
x:=(sqr(x)+4x+5);
if not(x<=2) then
x:=(1/(sqr(x)+4x+5))
writeln (x);
readln;
end.

Код к задаче: «Дано действительное число x. Вычислить f(x) - Pascal ABC»

textual
var x:real;
begin
write('x=');
read(x);
if x<=2 then x:=sqr(x)+4*x+5
else x:=1/(sqr(x)+4*x+5);
writeln ('x=',x:0:4);
end.

10   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ