1. Даны действительные число аи натуральное число n. Вычислить

Р = а (а + 1) ... (а + n - 1)

Question

Романа

15 июля, 23:49

+4

Ответы (1)

Знаете ответ на вопрос?

Геннадьич · Answer 1

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.

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