Регистрация Вход
Информатика 10 - 11 классы Thoril
Решено

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

32
ОТВЕТЫ

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.


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

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


begin

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

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

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

end.

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

n = 5

2700

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

n = 92

2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000

27
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте