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

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

Показать ответ

Ответ:

невідомий34

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

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

Платонф

02.11.2022 21:33

Винни-пух разлил 60 литров меда в 9 горшочков двух видов-вместимостью 4 и 8 литров. с сколько горшочков каждого вида занял винни-пух?...

раовт

01.03.2022 08:23

10 вопросов по теме компьютер 7 класс...

SuperNikc

01.03.2022 08:23

Напишите процедуру, которая выводит на экран запись числа меньшего, чем 16^4=65536 в виде 4 знаков в шестнадцатиричной системе счисления...

kilutikkkasd

19.02.2020 00:18

Напишите процедуру,которая принимает параметр-натуральное число n и выводит на экран квадрат из звездочек со стороной n...

Марося

28.04.2021 04:39

Какой файл вы откроете, чтобы посмотреть демонстрационный ролик. пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки.com...

Анжела1411

28.04.2021 04:39

Написать подпрограмму f(x), которая вычисляет значение по следующей формуле: f(x)=x^3 - sinx. построить таблицу значений функций для отрезка [a; b] с шагом h....

рудный1

28.04.2021 04:39

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

hfhfhfhffhhfdkdd

05.09.2020 12:08

Написать на языке паскаль: умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу....

dima12345678909

20.11.2022 01:00

Определить объем памяти для хранения моно-аудио, время звучания которого составит 8 мин, если известно что частота дискритизации =60000 изменений в секунду а глубина...

Popop11hs

20.11.2022 01:00

101111 из 2ичной, перевести в 10ую систему счисления. с решением, !...

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

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