Переводим 1100011 и у нас получается 99
Program z1;
var i,n:byte;
f:int64;
begin
f:=1;
readln(n);
for i:=1 to n do begin
f:=f*i
end;
writeln(f);
readln
<span>end.</span>
В отрицательную сторону.
За исключением "специальных" случаев масштабирования, например когда обе стороны увеличиваются в 2 раза, и из 1 пикселя получается 4 того же цвета, однако такой метод не применяется, ибо не имеет смысла.
Конечно, актуально только для растра.