11 lines
227 B
Text
11 lines
227 B
Text
If OpenConsole()
|
|
For i=1 To 100
|
|
If i<3 : Print(RSet(Str(i),4)) : Continue :EndIf
|
|
c=2
|
|
For j=2 To i/2+1 : c+Bool(i%j=0) : Next
|
|
Print(RSet(Str(c),4))
|
|
If i%10=0 : PrintN("") : EndIf
|
|
Next
|
|
Input()
|
|
EndIf
|
|
End
|