Viết chương trình in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến 20. Làm thế nào để biết số đó chia hết cho 3 hay không? Chẳng hạn số a chia hết cho 3 thì a mod 3=0 *Gợi ý - Ta sẽ dùng vòng lập for...do cho biến đếm i chạy từ 1 đến 20, mỗi lần sẽ tăng 1 đơn vị - Dùng câu lệnh điều kiện if...then để kiểm tra biến đếm i chia hết cho 3 hay không bằng điều kiện: i mod 3=0
1 câu trả lời
uses crt;
var i:word;
begin
clrscr;
for i:=1 to 20 do
if i mod 3=0 then writeln(i);
readln
end.
Xin CTLHN vaf 5* nha!