Anonymous user
Count in factors: Difference between revisions
no edit summary
m (→{{header|Nim}}) |
No edit summary |
||
Line 1,623:
16 : [ 2 2 2 2 ]
...</pre>
=={{header|IS-BASIC}}==
<lang IS-BASIC>100 PROGRAM "Factors.bas"
110 FOR I=1 TO 22
120 PRINT I;"= ";FACTORS$(I)
130 NEXT
140 DEF FACTORS$(N)
150 LET F$=""
160 IF N=1 THEN
170 LET FACTORS$="1"
180 ELSE
190 LET P=2
200 DO WHILE P<=N
210 IF MOD(N,P)=0 THEN
220 LET F$=F$&STR$(P)&"*"
230 LET N=INT(N/P)
240 ELSE
250 LET P=P+1
260 END IF
270 LOOP
280 LET FACTORS$=F$(1:LEN(F$)-1)
290 END IF
300 END DEF</lang>
{{out}}
<pre> 1 = 1
2 = 2
3 = 3
4 = 2*2
5 = 5
6 = 2*3
7 = 7
8 = 2*2*2
9 = 3*3
10 = 2*5
11 = 11
12 = 2*2*3
13 = 13
14 = 2*7
15 = 3*5
16 = 2*2*2*2
17 = 17
18 = 2*3*3
19 = 19
20 = 2*2*5
21 = 3*7
22 = 2*11
23 = 23
24 = 2*2*2*3
25 = 5*5
26 = 2*13
27 = 3*3*3
28 = 2*2*7
29 = 29
30 = 2*3*5</pre>
=={{header|J}}==
| |||