viết chương trình tính tổng các số nguyên từ 1 đến n chia hết cho 3 và 7 nghĩa là nhập n rồi cho từ 1 đến n có mấy số chia hết cho cả 3 và 7 cộng lại . tương tự chia hết cho 2 và 5 và không spam nha.

2 câu trả lời

^_^

program   tinhtong ;

uses   crt  ;

var  T,n,i  integer;  

begin

 write (' Nhap so n:'); readln(n);

T:= 0

for i:=1 to n do   if n mod 3=0 or n mod 7=0 then T:=T+i;

write(' Ket qua cua tong la:',T);

readln;

end.

                        

Câu hỏi trong lớp Xem thêm