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

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.


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

Comments

а причем тут i?

---

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

---

Да вообще

---

Поставьте *= вместо +=

---

Ну или -=

---

Кому что