Var
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.
Верно, каждый знак=1 разряду двоичного (например) кода
A=13, R=0
A=12, R=3
A=6. R=6
A=3, R=12
A=2, R=15
A=1, R=30
A=0, R=33
<span>
A=0, R=33</span>
Переменная "c" после выполнения этого кода будет: 32
В результате выполнения программы будет напечатано 60