Viết chương trình đưa ra màn hình các số từ 1-> 100 mà chia hết cho cả 3 và 5
Quảng cáo
2 câu trả lời 730
1 năm trước
uses crt;
var i:integer;
begin
clrscr;
writeln('Cac so chia het cho 3 va 5 la: ');
for i:=1 to 100 do if i mod 3=0 and i mod 5=0 then write(i,' ');
readln;
end.
var i:integer;
begin
clrscr;
writeln('Cac so chia het cho 3 va 5 la: ');
for i:=1 to 100 do if i mod 3=0 and i mod 5=0 then write(i,' ');
readln;
end.
1 năm trước
uses crt;
var i:integer;
begin
clrscr;
writeln('Cac so chia het cho 3 va 5 la: ');
for i:=1 to 100 do if (i mod 3=0) and (i mod 5=0) then write(i,' ');
readln;
end.
var i:integer;
begin
clrscr;
writeln('Cac so chia het cho 3 va 5 la: ');
for i:=1 to 100 do if (i mod 3=0) and (i mod 5=0) then write(i,' ');
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!