Задать вопрос
10 февраля, 03:16

Дано натуральное число n вычислить 1*2+2*3*4 + ... + n * (n+1) * ... * 2n (паскаль, цикл)

+5
Ответы (1)
  1. 10 февраля, 05:44
    0
    Var

    s, p: longint;

    i, j, n: integer;

    begin

    Write ('Введите n: ') ; Readln (n) ;

    s : = 0;

    for i : = 1 to n do

    begin

    p : = 1;

    for j : = i to 2 * i do p : = p * j;

    s : = s + p

    end;

    Writeln ('Сумма равна ', s)

    end.

    Тестовое решение:

    Введите n: 5

    Сумма равна 158306
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дано натуральное число n вычислить 1*2+2*3*4 + ... + n * (n+1) * ... * 2n (паскаль, цикл) ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы