<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000
Только для 7, т.к рассмотрим вторую скобку без инверсии
7 0
9 1
11 1
12 1
Инверсия даст (1 0 0 0) (записала по горизонт., чифры соответствуют 7,9 11,12)
В первой скобке с учетом инверсии получ-ся (1 0 0 0), перемножаем, получаем 1 только в одной строке - напротив 7
K=10x10=100 пикс
I=100 бит
i=I/k=100/100=1 бит
N=2^i=2^1=2 цвета
Ответ: 2 цвета
Var
v,t:real;
begin
write('Скорость(км/ч) = ');
readln(v);
write('Время(ч) = ');
readln(t);
writeln;
writeln('Расстояние = ',v*t);
end.