Дам 30 баллов!!!Напишите программку, дозволяющую вычислить значение функции

Дам 30 баллов!!!
Напишите программку, позволяющую вычислить значение функции

Задать свой вопрос
2 ответа
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if xgt;-3 then WriteLn('y = ',1/(x*x+1))
else WriteLn('y = 9')
End.
Program func;
var
x,y:real;
begin
writeln('Введите значение довода');
readln(x);
if(xlt;=-3) then
y:=9
else y:=1/(sqr(x)+1);
writeln('Значение функции= ', y);
readln();
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт