<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
011.000.111(2)=307(8) (см.фото)
1100.0111(2)=С7(16) (см.фото)
7 6 5 4 3 2 1 0
1 1 0 0 0 1 1 1 = 1•2^0+1•2^1+1•2^2+1•2^6+1•2^7=1+2+4+64+128=199(10)
В 32-символьном алфавите на 1 символ необходимо log(2)32=5 бит.
На 20 символов: 20*5=100 бит