Как сделать - что? перевести в двоичную сис-му счисления, или куда-то в другую?
46А (16)=1001010 (2)=112(8)
155(8)=6D (16)=1101101(2)
Вроде N=2i (только i должна быть маленькой в верху)
Почему я 7 клас, и не понимаю КАК ЭТО ДЕЛАТЬ??
Var a:array[0...6] of integer;
sum, i, N, x : integer;
begin
readln(N);
for i 1 to N do begin
sum:=0;
readln(x);
if x mod3 = 0
sum:=sum+x
end;
writln(sum);
end.