---

var
  z, q, eps, s, term: real;
  n: integer;
begin
  write('Введите z, q, eps: ');
  readln(z, q, eps);
  s := 0;
  n := 0;
  repeat
    term := exp(-z * ln(q + n));
    s := s + term;
    inc(n);
  until term < eps;
  writeln('Результат: ', s:0:6);
end.