Question

Написать и отладить программу PROG3_2, решающую следующую зада- чу: Даны целое положительное число N и вещественное число a. Найти ( на скриншоте) В задаче знак П означает произведение (по аналогии со знаком «сигма», означающем сумму). Для решения задачи предварительно составьте на бу- маге систему тестов для различных (небольших) значений N и a

Answer 1

Тест:
n=4, a=2
i=1: p = 2/1+1 = 3
i=2: p = 3*(4/3+1) = 3*2.3333 = 6.9999
i=3: p = 6.9999*(8/6+1) = 16.3329
i=4: p = 16.3329*(16/10+1) = 42.4655

var n,i,s:integer; a,st,p:real;
begin
write('n = ');readln(n);
write('a = ');readln(a);
p:=1; s:=0; st:=1;
for i:=1 to n do
 begin
 st:=st*a;
 s:=s+i;
 p:=p*(st/s+1);
 end;
writeln('П = ',p);
end.

Пример:
n = 4
a = 2
П = 42.4666666666667

Answer 2

Var
    a, p: real;
    i, n, temp: integer;

begin
    readln(a, n);
    temp := 0;
    p := 1;
    for i := 1 to n do
    begin
        temp := temp + i;
        p := p * (1 + exp(i * ln(a)) / temp);
    end;
    writeln(p);
end.