<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
Введите a и b: 8 150
580554122049849093827527200003507344139941951124024707479403873680711622959632935925467423493256663987453900243591243743896484375
На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
1.Sqrt(Power(x,3)+ Power (3,x))
Sqr(cos(sqr(x)))
sqr(1+x)
(sqr(x)+3*c)/(2*x)
2.(-b+ \sqrt{ x^{2} } -4ac)/2a
a/b(c+d) -(a-b)/b/c+ 1* 10^{-8} - 8