Vương Nguyễn Văn
Hỏi từ APP VIETJACK
lập trình đến các số đồng thời chia hết cho 3 và 5 trong đoạn từ 1 đến n
Quảng cáo
1 câu trả lời 267
3 năm trước
program bai1;
var m,n,i:Longint;
begin
wriute('M= ');readln(m);
repeat
write('N= ');readln(n);
until n>=m;
s:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then s:=s+i;
write('S= ',s);
readln
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!
