Visual Basic:
module Daoanhviet96
sub Main()
dim n as integer = console.readline()
dim s as integer = 0
for i as integer = 1 to n
if i mod 3 = 0 then
s=s+i
end if
next
console.write(s)
console.readkey()
end Sub
end module
Pascal:
program Daoanhviet96;
uses crt;
var n,s,i:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
begin
if i mod 3 = 0 then s:=s+i;
end;
writeln(s);
readln;
end.
Python:
print(sum([i for i in range (1,int(input())+1) if (i%3==0)]))
$\color{green}{\text{Cần code C++, Java, C#, JavaScript thì nói để mình thêm}}$
$\color{red}{\text{#Daoanhviet96}}$
