(В Pascal) Дано целое положительное число x. Вычислить:

(В Pascal) Дано целое положительное число x. Вычислить:

Задать свой вопрос
2 ответа
Var
   x:integer;
   y:real;
Begin
Write('x = ');
ReadLn(x);
if (9 lt; x)and(x lt; 17) then y:= 1/x + Tan(x)
else if (0 lt; x)and(x lt; 6) then y:= Exp(x) - Sqrt(x*x+x-1)
     else y:= Sqrt(Exp(x) / (x+1));
WriteLn('f(',x,') = ',y);
End.
Var x:integer;
begin
    readln(x);
    if (xgt;=10) and (xlt;=16) then
        write(1 / x + sin(x) / cos(x) )
    else if (x gt;= 1) and (x lt;= 5) then
        write(exp(x) - sqrt(x * x + x - 1) )
    else write(sqrt(exp(x) / (x + 1) ) );
end.
Анна Вайман
Во-первых, икс - целое число. Во-вторых, в Паскале это не скомпилируется.
Игорян Севалинов
Исправлено
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт