См. фото.......................................
Информационные потоки преобразуют и обрабатывают информацию
Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть
Код
Sub Zadanie
s = ""
n = 4
l = 2
for i = 1 to n
for j = 1 to n
if j=1 or i=1 or i=n or j=n then
s = s & "0"
else
l = l + 1
s = s & l mod 10
end if
next
s = s & vbNewLine
next
MsgBox (s)
End Sub
Вывод
0000
0340
0560
0000
Ответ:
1101 (2) -> 1*2^0 + 2^2+2^3 = 1+4+8 = 13
8 (16) -> 8 (10)
13 + 8 = 21
21 (10) -> 10101 (2)