Паскаль 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) повторяющийся метод

Задать свой вопрос
1 ответ
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.
Алексей Мелерзанов
Спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт