Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискСмотриComboВсе проекты

помогите написать алгоритм и решение в рукописном виде

Сергей Лукьяненко Мастер (2122), закрыт 10 лет назад
Вычислите выражение:
1*2+2*3*4+3*4*5*6+...+n*(n+1)*(n+2)*...*2n
ПОЖАЛУЙСТА
Лучший ответ
Jurii Высший разум (134962) 10 лет назад
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var
n, i, j, P, Sum : Integer;
begin
Write('Введите n = '); ReadLn(n);
Sum := 0;
{ для всех i от 1 до n}
for i := 1 to n do
begin
P := 1;
{ произведение P = n * (n+1) * (n+2) * ...* 2n }
for j := i to 2*i do
P := P * j;
{ сумма произведений }
Sum := Sum + P;
end;
WriteLn('Результат = ', Sum);
end.
Остальные ответы
Похожие вопросы
Также спрашивают