For i:=1 to 5 do
begin<span>
Write('A[',i,']: ');
Readln(A[i]);
end;</span>
Vara,b,f,count:integer;beginread(a);count:=0;for b:=1 to a do beginread(f);if (f mod 3=0) and (f mod 10=2) then count:=count+1;end;write(count);end.
<span>первые 20 чисел в шестнадцатеричной системе счисления
</span><span><span>[16]
</span><span>
0
</span><span>
1
</span><span>
2
</span><span>
3
</span><span>
4
</span><span>
5
</span><span>
6
</span><span>
7
</span><span>
8
</span><span>
9
</span><span>
A
</span><span>
B
</span><span>
C
</span><span>
D
</span><span>
E
</span><span>
F
</span><span>
10
</span><span>
11
</span><span>
12
</span><span>
13
</span><span>
14
</span></span><span><span><span /></span></span>
Бит,байт,кбайт,мбайт,гбайт,тбайт.