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

Ответы 1

  • 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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years