Написать программу в Паскале 1/x*x+4*x+5
Ответ
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.
vadrj:
Спасибо!
grandflow:
Возможно еще требуется проверка на то что введены именно цифры, но какой у вас класс непонятно, пусть будет немного попроще.