Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
m (→{{header|Sidef}}: updated code) |
No edit summary |
||
Line 271: | Line 271: | ||
{{out}} |
{{out}} |
||
<pre>233168</pre> |
<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}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |