Viết chương trình nhập vào số nguyên N. Tính tổng các phương trình chia hết cho 3 trong đoạn N số nguyên đó.

uses crt;

var i, N, S : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

i := 1; S := 0;

while i <= N do 

    begin

        if i mod 3 = 0 then

            S := S + i;

        i := i + 1;

    end;

write('Tong cac so chia het cho 3 = ', S);

readln

end.

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}}$