Anonymous user
Sum multiples of 3 and 5: Difference between revisions
no edit summary
m (→{{header|Sidef}}: updated code) |
No edit summary |
||
Line 271:
{{out}}
<pre>233168</pre>
==={{header|IS-BASIC}}===
<lang IS-BASIC>100 PRINT MULTSUM35(1000)
110 DEF MULTSUM35(N)
120 LET S=0
130 FOR I=1 TO N-1
140 IF MOD(I,3)=0 OR MOD(I,5)=0 THEN LET S=S+I
150 NEXT
160 LET MULTSUM35=S
170 END DEF</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||