14 lines
158 B
Text
14 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
|