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