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!