Question

[๖ۣۜD๖ۣۜU๖ۣۜC๖ۣۜK]

viết chương trình tính tổng của các số nguyên chia hết cho 3t rong phạm vi từ 1 đến 30

Answer 1

[Bùi Anh Tuấn]

Answer 2

[Nguyễn Lê Phước Thịnh]

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 30 do 

 if i mod 3=0 then t:=t+i;

writeln(t);

readln;

end.