Question

Дано действительное число a. Вычислить f(a), если
f(x)= система x^2+4x+5, при x<или =0
1/(x^2+4x+5), в противном случае

Answer 1

Если не тот язык, укажите какой нужен.

var a: integer;
      f: real;
begin 
  write('Введите а: '); readln(a);
  if(a <= 0) then f := sqr(a) + 4*a + 5
  else f := 1 / (sqr(a) + 4*a + 5);
  writeln('f(', a, ') = ', f);
end.

Answer 2

программа должна быть на языке программирования FreePascal (Turbo Pascal):

Answer 3

Ну значит все нормально.

Answer 4

спасибо))