profile
Опубликовано 6 лет назад по предмету Информатика от tanzilaing06

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

  1. Ответ
    Ответ дан HRAshton
    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.


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

    1. Ответ
      Ответ дан Аккаунт удален
      Вроде бы, не сумму, произведение надо
    2. Ответ
      Ответ дан HRAshton
      Да вообще
Самые новые вопросы