9 12 6666666666666666666666666666666666666666666666666666666666666666666666666
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
у квадрата все стороны равны.
сумма углов треугольника равна 180 градусам.
Ты перепутала. Это в 1 Килобайте 1024 БАЙТА, а в 1 байте - 8 бит. Также в 1 Кб - 8192 бита.