dùng cấu trúc lặp for do dạng tiến để viết chương trình đưa ra màn hình các số lẻ hoặc chia hết cho 5 trong đoạn [200,300]
2 câu trả lời
var i: word;
Begin
For i:=200 to 300 do
If (i mod 2=1) or (i mod 5=0)
Then write(i, ' ');
Readln
End.
uses crt;
var i,n: integer;
begin
clrscr;
write('Cac so chia het cho 5 tu 200 den 300 la: ');
for i:=200 to 300 do
if (i mod 5 = 0) and (i mod 2 <> 0) then write(i:5,' ');
readln;
end.
đã test mong đc vote
