Viết chương trình in ra màn hình các số tự nhiên chia hết cho 3 và nhỏ hơn 100.

2 câu trả lời

Đáp án:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 99 do if(i mod 3=0)then write(i,' ');
readln

end.
Chúc bạn hok tốt
Xin 5 sao và ctlhn

uses crt;
var i:longint;
begin
 clrscr;
  for i:=1 to 99 do if(i mod 3=0)then write(i,' ');
 readln
end.