!!!ПОМОГИТЕ РЕШИТЬ ОЧЕНЬ НАДО!!!

0 голосов
39 просмотров

!!!ПОМОГИТЕ РЕШИТЬ ОЧЕНЬ НАДО!!!


image
image

Информатика | 39 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var
  n, k, x: real;
begin
  readln(n, k, x);
  write('y = ');
  if (k * (sqr(n) - sqr(k)) >= 2) then
    writeln(exp(k * sqr(x)) - n * sqrt(x))
  else
    writeln(x*x*x + k * n * power(x, 1/3));
end.

const
  k = 2;
  m = 3;
var
  x: real;
begin
  readln(x);
  write('F = ');
  if ((x >= k + m) or ((k <= x) and (x <= m))) then<br>    writeln((k + m) / (2 * x));
  if ((x < K) or ((M < x) and (x < M + K))) then
    writeln(3.5*power(10, -3)*(x / (k + m)));
end.

(16.9k баллов)
0

Чем могу:)