annoynimous 23 окт 2004, 12:40
[quote="dn"]
screen 12
For n=1 To 120
For m=1 To 120
p=m*n
line (4*n,4*m)-(4*n+2,4*m+2),15,bf
q=Int(Sqr(p))^2
If p=q then line (4*n,4*m)-(4*n+2,4*m+2),9,bf
t=Int(Sqr(2*p))
If p=t*(t+1)/2 then line (4*n,4*m)-(4*n+2,4*m+2),2,bf
t=Int(Sqr(2*p))
If p=t*(t+1)/2 And p=q then line (4*n,4*m)-(4*n+2,4*m+2),4,bf
Next m,n[/quote]
Пля, и ты морочил неделю всем мозги, где достать какой-то там васик! Вместо того, чтобы сразу показать программу (которая кстати и на кувасике на пц скомпиляется).
lvd.nm.ru/fdn/fdn.png
fdn.lzx
Цвета от балды.
Вообще сама программа - маразм. Ничего не делает.