Quảng cáo
3 câu trả lời 307
ues crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 hoac chia het cho 5 la: ',t);
readln;
end.
ues crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 hoac chia het cho 5 la: ',t);
readln;
end.
ues crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 hoac chia het cho 5 la: ',t);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45592
-
Đã trả lời bởi chuyên gia
29052 -
Hỏi từ APP VIETJACK28534
