Не ясно на каком именно бейсике это написано, но у меня есть только 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
Answers & Comments
Verified answer
Не ясно на каком именно бейсике это написано, но у меня есть только 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