Напишите программу pascal - 1*(1+2)*(1+2+3)*(1+2+3+4)*(1+2+3+...n)

Question

Напишите программу pascal - 1*(1+2)*(1+2+3)*(1+2+3+4)*(1+2+3+...n)

Answer 1

var  

   N:integer;

   i:integer;

   sum:integer;

   result:integer;

begin

   writeln('Введите значение N:');

   readLn(N);

   

   sum := 0;     result := 1;

   for i := 1 to N do

   begin

       sum := sum + i;

       result := sum * result;

   end;

   writeln('Конечное значение = ', result);

end.

Comments

Входное значение: 5
Выходное значение: 35
Версия компилятора: fpc 3.0.0(online ver.)

---

я посчитал 34 должно быть

---

Да, ошибка была у меня. Я суммировал, а не умножал :)

---

а вообще должно 900 быть

---

я тоже сумировал

---

другое решение должно быть?

---

Судя по примеру твоему, все верно. Введи 5 - получишь 2700.
Мой пример все правильно решает.

---

spasibo

Answer 2

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (m,n):=(3,ReadInteger('n ='));

 SeqGen(n-1,m,t->begin Result:=t+m; m+=1 end)

     .Aggregate(BigInteger(1),(p,q)->p*q).Println

end.

---------------------------

n = 5

2700

--------------------------

n = 92

2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000

---