Question

Написать программу в Паскале 1/x*x+4*x+5

Answer 1

Ответ:

var X, Y: Real;

begin

  WriteLn("Введите значение аргумента: ");

   ReadLn(X);

// так как деление на ноль вызовет ошибку, исключаем это

   if (X <> 0) then

      begin

         Y:=1/X*X+4*X+5;

        WriteLn("Y= ", Y);

     end;

   else

        WriteLn("Введен недопустимый аргумент");

end.

Answer 2

Спасибо!

Answer 3

Возможно еще требуется проверка на то что введены именно цифры, но какой у вас класс непонятно, пусть будет немного попроще.