Question

Решите пожалуйста в Паскале
1/a-1m*1/a-2m*1/a-3m*.....1/a-km

Answer 1

var
  a, k, m, i: integer;
  s: real;

begin
  readln(a, k, m);
  for i := 1 to k do
    S += 1 / (a - k * m);
  writeln(S);
end.


Вот, должно быть, так:)

Answer 2

Вроде бы, не сумму, произведение надо

Answer 3

Да вообще