Program tinh_tong;
Uses crt;
Var n,i,t:longint;
Begin
Clrscr;
Write('n='); readln(n);
t:=0;
For i:=1 to n do
If i mod 3=0 then t:=t+i;
Writeln('tong cua cac so tu 1 den n chia het cho 3 la: ',t);
Readln;
End.
Nhớ vote cho mình 5 sao và câu trả lời hay nhất nha ~~