Pascal - Программу вычисления суммы/произведения

[aleksch]

Написать программу вычисления суммы (произведения) конечного ряда. При разработке программы предусмотреть пропуск слагаемых (множителей), равных нулю или бесконечности.
P/S Значение k ввести с клавиатуры

[flance]

Добрый день.

Если еще актуально, пишите, обсудим

Почта flancejob собака ya.ru
Скайп flancejob

Лучше по скайпу.

[Mad_Cat]

var
  s, z, f: real;
  i, k: integer;

begin
  s := 0;
  write('k=');
  readln(k);
  f := 1;z := -1;
  for i := -2 to k do
  begin
    z := -z;
    f := f * (i + 3);
    if (i - 4) <> 0
      then s := s + z * f / 2 / (i - 4);
  end;
  writeln('s=', s:6:3);
end.

k=5
s=-19826.633