Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
anonymus98
10.03.2022 18:18 •
Информатика
Дано натуральное число n вычислить 1*2+2*3*4++ n*(n+1)**2n (паскаль, цикл)
Показать ответ
Ответ:
Ked4
19.07.2020 01:22
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
0,0
(0 оценок)
Популярные вопросы: Информатика
akoa
28.09.2021 18:38
1)лазерный принтер печатает со скоростью в среднем 7 кбит в секунду. сколько ремнём понадобиться для распечатки 12-ти страничного документа, если известно, что на одной странице...
Professor2004
28.07.2022 19:20
Выполните вычисление, используя таблицу триад и тетрад:...
marylps45
12.10.2020 11:53
НЕ ПОЛУЧАЕТСЯ СДЕЛАТЬ Ввести число, обозначающее размер одной фотографии в Мбайтах. Определить, сколько фотографий поместится на флэш-карту объёмом 2 Гбайта. Пример: Размер фотографии...
Danelpos
01.04.2021 04:03
Определите количество всех четурех разрядных чисел в системе счисления с основанием 5...
Evgeniusz
26.05.2023 07:59
подготовить ответ к зачету на вопрос Текстовые процессоры. Работа с таблицами в MS Word по предмету Информационные технологии...
diana2010123456
20.10.2020 04:05
Дать определения словам лежанка,клюка,подворье,приданое,рогатка,терем,трезвонить,целомудрие,богатырь...
kato99
20.10.2020 04:05
Определите от чего и с чего образованны данные слова родастный красноватый преотличный атомоход ельник восход подводный ленточка скоросшиватель булочная перерыв...
petrovadasha200Fhcd
20.10.2020 04:05
Димеризация бутин-1 уравнение реакции...
aksiniaplotniko
20.10.2020 04:05
10 словосполучень з різними зв язку...
annaaristova
20.10.2020 04:05
Составьте предложение что бы в нем было : определение,дополнение,обстоятельство в прямом порядке слов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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