Однажды жители лилипутии решили выяснить, сколько необходимо слив, чтобы уравновесить яблоко. при этом лилипуты выяснили, что яблоко уравновешивается на чашечных весах персиком и сливой. два ананаса уравновешиваются тремя персиками. яблоко и слива уравновешиваются ананасом. лилипутам решить

5персиков, там уравнение составляешь и все получиться

pascalabc.net

1.

begin

  var a : = 2.3;

  var y: real;

  foreach var x in seq(2.5, 3.1, 4.0, 4.85) do

  begin

    if x < 3 then

      y : = a - 3 * ln(x)

    else  

      y : = 5 * sqr(cos(x));

    writeln('x = ', x: 4: 2, ',   y = ', y: 8: 5)

  end

end.

2.

begin

  var (a, b, x) : = (1.1, 0.04, 0.2);

  var y : = sin(x * x + a * a) ** 3 - sqrt(x / b);

  var z : = x * x / a + cos(x + b) ** 3;

  write('y = ', y, ', z = ', z)

end.

pascalabc.net

#1

y : = (a * x + 2 * b * x * x) * abs(cos(x * x)) / (pi * exp(x));

y : = (a * ln(b * x)) ** (1 / 3) / (1 + sqr(sin(a * ;

y : = (abs(sin(x ** 3)) + a) * exp(a) / (b * b + c * c) ** (1 / 3);

#2

begin

  var (a, x) : = readreal2('введите a и x: ');

  var t : = x ** 3 - a;

  t : = sign(t) * abs(t) ** (1 / 3);

  var y : = t + sin(x * x) / a;

  print('y =', y)

end.

операция возведения в степень ** в pascalabc.net определена только для неотрицательного аргумента, поскольку она выполняется с использованием логарифма. в то же время, в операция извлечения корней нечетной степени для отрицательного аргумента опеределена и допустима. в соответствии с этим, извлечение кубического корня в программе производится из абсолютной величины аргумента и последующим присваиванием знака этого аргумента результату. если имеется потребность вычислять подобные корни в нескольких местах программы, имеет смысл ввести для этого собственную функцию.