17 lines
332 B
Plaintext
17 lines
332 B
Plaintext
OpenConsole()
|
|
lv=1
|
|
Repeat
|
|
s+1 : s2=s*s : Flg=#True
|
|
For i=lv To s
|
|
If s2=i*i*i
|
|
tx3$+Space(Len(tx2$)-Len(tx3$))+Str(s2)
|
|
tx2$+Space(Len(Str(s2))+1)
|
|
Flg=#False : lv=i : c-1 : Break
|
|
EndIf
|
|
Next
|
|
If Flg : tx2$+Str(s2)+" " : EndIf
|
|
c+1
|
|
Until c>=30
|
|
PrintN("s² : "+tx2$) : PrintN("s²&s³: "+tx3$)
|
|
Input()
|