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

Помогите пожалуйста))))))))))))))))

  1. Ответ
    Ответ дан HRAshton
    var
      s: real;
      i: byte;

    begin
      for i := 1 to 50 do
        s += 1 / Power(i, 3);
      writeln(s);
    end.
    ===================
    var
      s: real;
      i: byte;

    begin
      for i := 1 to 64 do
        s += 1 / Power(i * 2, 2);
      writeln(s);
    end.
    =================
    Вроде так...
Самые новые вопросы