Войти Регистрация Спроси ai-bota

Вводится целое число n. вывести для нечетных чисел от 1 до n произведение этих чисел, а для четных от 1 до n, вывести их сумму.

Ответ:

olesiadukova

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 оценок)

Популярные вопросы: Информатика

ЕгорРябцев

26.10.2021 22:43

Хелпаните парни К каким устройствам относиться флеш-карта? Вывод информации или ввод? Почему? Обоснуйте свой ответ....

катерринкаа

04.02.2023 08:52

Сделайте таблицу с майкрасофт ворд и напишите мне в личку я напишу свою почту чтобы отправили мне таблицу.заранее .) используя средства работы с таблицами, построить таблицу типа...

yanakorzh2003

04.02.2023 08:52

Компьютер подключенный к интернету обязательно имеет интернет адрес ? как формируется доменная система имен? как работает транспортный протокол? протокол маршрутизации ?...

mors3

04.02.2023 08:52

Дано натуральное число n (n 9). найти число сотен в нем.(паскаль)...

ekaterinkavlas1

04.02.2023 08:52

1. почему компьютерная сеть интернет продолжает нормально функционировать даже после выхода из строя отдельных серверов и линий связи?...

Dimaaaaaaasiiiiiik

02.03.2020 12:59

Написать программу! 1. запишите следующие условия: числа a и b имеют разную четность. одно из чисел a и b положительно. одно из чисел a и b является квадратом другого. точка a(x,y)...

9uh9ev2

02.03.2020 12:59

Дано натуральное число n (n 9). нужно найти число сотен в нем.(паскаль)...

chelsi09

02.03.2020 12:59

Составьте алгоритм решения для следующей .точка плоскости задана своими координатами (х, у). определите, принадлежит ли она окружности радиуса r с центром в точке (100, 100)....

валерия20156

15.08.2020 12:00

Дана строка s, состоящая из слов, разделённых пробелами. найдите в строке s слово максимальной длины. программа на паскаль...

ElDiablo1337

07.06.2021 13:23

Решить на языке паскаля написать программу для определения того, находится ли вес человека в пределах нормы для определения нормального веса человекс из величины его роста вычитают...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку