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

Ответы 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 100908464046583576500993571081800306211096932110181934471244776274481035400390625
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years