Tau number: Difference between revisions

536 bytes added ,  11 months ago
Line 2,685:
</pre>
 
=={{header|Tiny Craft Basic}}==
<syntaxhighlight lang="basic">10 let count = 0
20 let num = 0
30 let modulus = 0
40 let nums = 100
50 let tau = 0
 
60 rem do
 
70 let count = count + 1
80 let tau = 0
90 let modulus = 1
 
100 rem do
 
100 if count mod modulus <> 0 then 130
 
120 let tau = tau + 1
 
130 rem endif
 
140 let modulus = modulus + 1
 
150 if modulus < count + 1 then 100
 
160 if count mod tau <> 0 then 190
 
170 let num = num + 1
180 print count, tab,
 
190 rem endif
 
200 if num < nums then 60</syntaxhighlight>
 
=={{header|Verilog}}==
305

edits