Dim b(4,2)
for i=1 to 4 step 2
for j=1 to 2
b(i,j)=int(RND*10-8)
print b(i,j);
next j
print
next i
kol=0
for i=1 to 4 step 2
for j=1 to 2
if b(i,j) mod 3=0 then
kol=kol+1
end if
next j
next i
print kol
Отделяем по 3 двоичных цифры справа (триады), и пишем 8-ричный код:
1 000 001(2)=101(8);
100 000 000(2) =200(8);
11 111 111(2) =377(8);
1 100(2) =14(8).
Монитор - устройство вывода .
Например бугалтер для расмотрении разных документов