Паскаль S=1+(2/2)+(2+4/2*4)+(2+2+6/2*4*6)+…. +(2+4+6+2N/2*4*6*2N) циклический алгоритм

Вопрос школьника по предмету Информатика

Паскаль S=1+(2/2)+(2+4/2*4)+(2+2+6/2*4*6)+…. +(2+4+6+2N/2*4*6*2N) циклический алгоритм

Ответ учителя по предмету Информатика

Var

   S,S0,P:real;

   N:integer;

Begin

Write(‘N = ‘);

ReadLn(N);

S:=1;

S0:=0;

P:=1;

For N:= 1 to N do

    Begin

    S0:=S0+2*N;

    P:=P*2*N;

    S:=S+S0/P

    End;

WriteLn(‘S = ‘,S);

End.