Question

задание 5, помогите, пожалуйста, нужно решить с помощью pascal abc

Answer 1

var
  x, y, a: real;
  k: byte;

begin
  readln(x, a);
  for l: byte := 1 to 4 do
  begin
    k := 1;
    for b: byte := 1 to l do
      k *= b;
    y += (power(x, (1 + l * 3))) / k;
  end;
  writeln(y * 5 * a);
end.

Answer 2

Эм... В общем, обычно ide показывают, где ошибки) У меня всё работает

Answer 3

значит, у меня тупо не работает сам pascal abc...

Answer 4

Попробуйте pascalabc.net