// 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)->m*n)) end.
Пример Введите a и b: 8 150 580554122049849093827527200003507344139941951124024707479403873680711622959632935925467423493256663987453900243591243743896484375
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку