Viết ct kiểm tra các số từ 1 -> 20 có chia hết cho 3 hay ko, in các số đó ra màn hình
2 câu trả lời
Uses crt;
Var i: integer;
Begin
Clrscr;
For i:=1 to 20 do if i mod 3 = 0 then writeln(i,' ');
Readln
End.
uses crt;
var
begin
clrscr;
write ('cac so tu 1 den 20 chia het cho 3 la: ');
for i:=1 to 20 do
if i mod 3=0 then
write (i,' ');
readln;
end.
học tốt
cho xin 5* cảm ơn câu trả lời hay nhất !!!!
Câu hỏi trong lớp
Xem thêm
