Вопрос по информатике:
Паскаль !Найти произведение натуральный нечетных чисел от n1 до n2 .
Пожаловаться
- 23.06.2018 18:08
- Информатика
- remove_red_eye 5007
- thumb_up 49
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (n1,n2):=ReadInteger2('Введите n1, n2:');
if n1>n2 then Swap(n1,n2); // защита от злобных буратинок
Writeln(Range(n1,n2).Where(n->n.IsOdd).Aggregate(BigInteger(1),(m,n)->m*n))
end.
Пример
Введите n1, n2: 5 100
908464046583576500993571081800306211096932110181934471244776274481035400390625
// Внимание! Если программа не работает, обновите версию!
begin
var (n1,n2):=ReadInteger2('Введите n1, n2:');
if n1>n2 then Swap(n1,n2); // защита от злобных буратинок
Writeln(Range(n1,n2).Where(n->n.IsOdd).Aggregate(BigInteger(1),(m,n)->m*n))
end.
Пример
Введите n1, n2: 5 100
908464046583576500993571081800306211096932110181934471244776274481035400390625
Пожаловаться
- 24.06.2018 11:35
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы