===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do
begin
y:=y*a;
i:=i+1;
end;
write(y);
end.
1410(10) = 2602(8)
1410(10) = 10110000010(2)
1410(10) = 582(16)
Если нужно числа 135 и 207 перевести в двоичную систему то держи:
135 - 10000111
207 - 11001111
В таблице:
9 л 9 4 4 - 9 8 8 3
<span>5 л - 5 - 4 4 5 - 5</span>