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

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

Задать свой вопрос
1 ответ

program cycle_;
var n: byte;
s, p: int64;
begin
writeln(Введите число);
Readln(n);
s:= 0;
for i: integer:= 1 to n do
begin
p:= 1;
//цикл для подсчета творенья n * (n + 1)...2 * n
for k: integer:= i to 2 * i do p:= p * k;
s:= s + p;//сумма творений
end;
writeln(s);
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт