*
должна быть размером n*n (n вводится, как стандартный ввод). Я с легкостью могу вывести спираль из чисел, но вот разделение никак не придумаю, как реализовать..* * * * * * *
*
* * * * * *
* * *
* * * * *
* *
* * * * * * *
n=18
DIM a(n,n)
FOR x=1 TO n
FOR y=1 TO n
a(x,y)=ASC(" ")
NEXT
NEXT
FOR y=1 TO n
a(1,y)=ASC("*")
a(y,1)=ASC("*")
a(y,n)=ASC("*")
NEXT
x=n : y=n
u=0 : v=-1
FOR i=1 TO n-3
WHILE a(x+u+u,y+v+v)<>ASC("*")
x+=u
y+=v
a(x,y)=ASC("*")
ENDWHILE
w=v : v=-u : u=w
NEXT
FOR y=1 TO n
FOR x=1 TO n
PRINT CHR$(a(x,y));
NEXT
PRINT
NEXT
PRINT
Немного совсем не то. Позже доделаю. Но думаю, принцип понятен.