Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Glebbb15
24.11.2022 04:58 •
Информатика
Вводится целое число n. вывести для нечетных чисел от 1 до n произведение этих чисел, а для четных от 1 до n, вывести их сумму.
Показать ответ
Ответ:
VikaNika16
05.10.2020 16:46
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln('Сумма четных: ',Range(2,n,2).Sum);
Writeln('Произведение нечетных: ',
Range(1,n,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Примеры
n= 10
Сумма четных: 30
Произведение нечетных: 945
n= 100
Сумма четных: 2550
Произведение нечетных: 2725392139750729502980713245400918633290796330545803413734328823443106201171875
n= 220
Сумма четных: 12210
Произведение нечетных: 1107777077219218863731176870556049213277080310011307546922058816496685355705579762805879646585202270946781726057710274499420058851200005273702334889222745707797723907366146060509882690145022444427013397216796875
0,0
(0 оценок)
Популярные вопросы: Информатика
mariooouvanov
07.10.2021 09:14
Составить блок-схему для определения наибольшего числа из чисел a,b,c,d. надо...
Mrkronomax
18.03.2022 04:14
Внутренняя память который хранит информацию для начальной загрузки компьютера...
lenok140
18.01.2022 10:09
1.дано одновимірний масив розмірності n, знайти суму елементів масиву, з індексами кратними 4. 2.дана матриця nxm. знайти найбільше значення кожного стовпця та найменше серед...
opvictor01p08056
18.11.2022 21:25
3. Вавилонская система счисления применяется для: a. Измерения времени; b. Инженерных вычислений; c. Кодирования информации; d. Программирования. 18. В программе MS Excelв формуле...
daridasha57ү
24.10.2021 11:55
Решить в Excel систему уравнений графическим с точностью 0,1), найти минимальное, положительное, целое значение А, при котором решение существует (графики пересекаются). {Y 1=5∗x2+2∗x−4,...
ПЕТУСШОГ
23.01.2020 16:59
Включаю компьютер а монитор не как не реагирует лампочка тоже не горит...
bikimbetovadarina
14.09.2021 08:15
14. Обчисліть: у = 2х + 3х 2 + 4х 3 + … + 11х 10...
Vlarizon98
14.05.2023 19:47
Точка, находящаяся на конце минутной стрелки длиной 0,1 м переместилась с цифры 12 на цифру 6. определите путь и модуль перемещения этой точки....
tanyalaim20061
14.05.2023 19:47
Анализ стихотворений. образ весны. ф.и.тютчев, а.н. плещеев. образ лета. ф.и.тютчев, и.с. никитин....
almikhaylova
14.05.2023 19:47
Представьте в виде куба одночлена 0,027 x^15 y^6 z^3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln('Сумма четных: ',Range(2,n,2).Sum);
Writeln('Произведение нечетных: ',
Range(1,n,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Примеры
n= 10
Сумма четных: 30
Произведение нечетных: 945
n= 100
Сумма четных: 2550
Произведение нечетных: 2725392139750729502980713245400918633290796330545803413734328823443106201171875
n= 220
Сумма четных: 12210
Произведение нечетных: 1107777077219218863731176870556049213277080310011307546922058816496685355705579762805879646585202270946781726057710274499420058851200005273702334889222745707797723907366146060509882690145022444427013397216796875