Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
maksy76750
28.06.2020 08:26 •
Информатика
Вводится целое число n. вывести для нечетных чисел от 1 до n произведение этих чисел, а для четных от 1 до n, вывести их сумму.
Показать ответ
Ответ:
iralubov
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 оценок)
Популярные вопросы: Информатика
DASHA56789111
29.08.2020 14:06
Кем и когда был введён термин гипертекст?...
nogtev70
24.02.2021 02:05
Вертикальная мигающая черта на рабочей области текстового документа называется текстовый...
frogRICH
06.01.2022 23:26
Чи можна обмежити кількість відповідей респондента на форму до однієї?...
вбцуьа
06.01.2022 23:26
Определите, истинно или ложно составное высказывание. Запишите ответ. (2 * 2 = 4 ∨ 3 * 3 = 10) ∨ (2 * 2 = 5 ∧ 3 * 3 = 9)...
makhastiirisba
09.12.2020 00:35
Реши задачу. Костя, Дима и Тоня посетили картинную галерею и обратили внимание на одну картину. Друзья спорили о происхождении картины и каждый сделал два предположения....
cvetok555
22.09.2022 01:50
Какова длина отрезка, если известно,какова длина отрезка, если известно, что его длина равна длине ломаной, каждое из четырёх звеньев которой равно 2 см.1) 2 см 2)6см 3)8см...
ВладКрикет
22.09.2022 01:50
Имеется ли что-то общее и различное между понятиями фирма , компания и организация ?...
Polinakey9283773744
22.09.2022 01:50
Как ты думаешь, возмездие для чика- это цель или средства: ?...
Zigmynda11
22.09.2022 01:50
Составить предложение из слов по, лучи ,веточки, солнце, пробежать, сирень, весенния...
danil820
22.09.2022 01:50
Найди значения выражений 7121350-(15125: 25+302*804-986: 17)*9...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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