Anonymous user
Sum multiples of 3 and 5: Difference between revisions
no edit summary
No edit summary |
|||
Line 497:
!. sum-divisible 1000</lang>
{{out}}
<pre>233168</pre>
=={{header|Delphi}}==
<lang delphi>program sum35;
{$APPTYPE CONSOLE}
var
sum: integer;
i: integer;
function isMultipleOf(aNumber, aDivisor: integer): boolean;
begin
result := aNumber mod aDivisor = 0
end;
begin
sum := 0;
for i := 3 to 999 do
begin
if isMultipleOf(i, 3) or isMultipleOf(i, 5) then
sum := sum + i;
end;
writeln(sum);
end.</lang>
{{out}}
<pre>233168</pre>
Line 512 ⟶ 538:
{{out}}
<pre>233168</pre>
=={{header|F_Sharp|F#}}==
| |||