Viết chương trình nhập vào số nguyên dương n. Tính và đưa ra màn hình tổng các số từ 1 đến n chia hết cho 3

Câu 3: Viết chương trình nhập vào số nguyên dương n. Tính và đưa ra màn hình tổng các số từ 1 đến n chia hết cho 3.

Trả lời

var n,i,t:integer;

write('Nhap n='); readln(n);

until n>0;

for i:=1 to n do

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

writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);