Паскаль. найти произведение всех нечетных чисел от числа "а" до числа

Паскаль.
отыскать творенье всех нечетных чисел от числа "а" до числа "b"
Срочно!

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:integer;
  Write('Введите a и b: '); Read(a,b);
  if a.IsEven then a+=1;
  Writeln(Range(a,b,2).Aggregate(BigInteger(1),(m,n)-gt;m*n))
end.

Пример
Введите a и b: 8 150
580554122049849093827527200003507344139941951124024707479403873680711622959632935925467423493256663987453900243591243743896484375

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт