написать код этого сайта в

1. нужно найти сколько бит весит обна буква.

64 это 6 бит информации.

2. i=6*20= 120 бит

мы умножыли биты на количество используемых букв.

вот и

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

наверняка двоичные числа надо только определить где ноль а где один

наверно о - one

10101

10110

10111

11000

11001

вроде как сходится, продолжаем

11010

11011

11100

11101

11110

11111

обратную замену самостоятельно

var x,y,a,b: real; begin  read(a,b);   read(x,y);   if y=a*x+b then      writeln('точка принадлежит прямой')  else  writeln('точка не принадлежит прямой'); end.