• Помогите

    написать программу в Паскале z=1-e^2a*sin^3(2a)/кореньcos(a) Как считаю я: Program example1;

    Var a,z:real;

    begin

    writeln('Введите число a');

    readln(a);

    z:=1-exp(2*a)*sin(2*a*3)/sqrt(cos(a));

    writeln('Вычислить=',z);

    end.

    Но программа выдает ошибку, не пойму в чём дело, подскажите пожалуйста.

Ответы 1

  • Program example1;Var a,z:real;beginwriteln('Введите число a');readln(a);z:=1-exp(ln(e)*2*a)*exp(ln(sin(2*a))*3)/sqrt(cos(a));writeln('Z= ',z);end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years