Регистрация
Войти
Стать экспертом Правила
Информатика

Паскаль !Найти произведение натуральный нечетных чисел от n1 до n2 .

ОТВЕТЫ



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
254
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам