• Нужно написать программу на языке Турбо Паскаль, которая бы вычисляла значение выражения по формуле
    [tex](a/c)*(b/d)-((a*b-c)/(c*d))* e^{x+y} [/tex]

    e^(x+y) - степень!

    Заранее спасибо

Ответы 1

  • var  a, b, c, d, e, x, y, z: real;begin  Write('Введите через пробел a,b,c,d,e,x,y: ');  Readln(a, b, c, d, e, x, y);  if e > 0 then    Writeln((a / c) * (b / d) - ((a * b - c) / (c * d)) * exp((x + y) * ln(e)))  else if e = 0 then Writeln((a / c) * (b / d) - ((a * b - c) / (c * d)))  else Writeln('e<0 недопустимо!')end.
  • Добавить свой ответ

Войти через Google

или

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

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

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