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

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

image

Информатика (12 баллов) | 34 просмотров
Дан 1 ответ
0 голосов
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.
(16.9k баллов)
0

Чем могу..)

0

боюсь, что это немного не то...(

0

А что не так?

0

ну, я просто совсем не силен в информатике, но эта программа не работает

0

На какой строке?

0

Ошибка

0

Где?

0

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

0

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

0

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