13 lines
158 B
Text
13 lines
158 B
Text
count()
|
|
Prgm
|
|
""→s
|
|
For i,1,10
|
|
s&string(i)→s
|
|
If mod(i,5)=0 Then
|
|
Disp s
|
|
""→s
|
|
Cycle
|
|
EndIf
|
|
s&", "→s
|
|
EndFor
|
|
EndPrgm
|