Регистрация
mimidoghoz
13.05.2021 03:06
Информатика
Есть ответ 👍

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

146
443
Посмотреть ответы 3

Ответы на вопрос:

КБД2006
КБД2006
4,4(34 оценок)

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.

Ученик2017gmailcom
Ученик2017gmailcom
4,6(81 оценок)

// 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(,q)-> p*q).println

end.

n = 5

2700

n = 92

2905717351708908985405643744987697767130796956644732769142761496541317116624931720391311988753812039943077115478561297954388733569194661753822436538090873756174074892748228397527408937781819534979620536526957830995968000000000000000000000000000000000000000000

vladpasin34
vladpasin34
4,8(70 оценок)
Если объём статьи 150 кб = 150 * 1024 байт, а на один символ отводится 16 бит = 2 байта, то всего в статье 150 * 1024 / 2 = 150 * 512 = 76800 символов общее количество строк равно 120 * 80 = 9600, значит, в строке по 76800/9600 = 8 символов

Популярно: Информатика