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

1. Даны действительные число аи натуральное число n. Вычислить
Р = а (а + 1)...(а + n -1)

  1. Ответ
    Ответ дан HRAshton
    var
      a, P: real;
      n, i: integer;

    begin
      P := 1;
      readln(a, n);
      for i := 0 to n - 1 do
        P *= a + i;
      writeln(P);
    end.
Самые новые вопросы