Viết chương trình in ra các số chia hết cho 3 cùng 1 hàng. In ra màn hình có bao nhiêu số chia hết cho 3 từ 1 đến n với n nhập từ bàn phím.

program ct;

uses crt;

var i,n,d:integer;

begin clrscr;

   write('Nhap so n: '); readln(n);

   write('So chia het cho 3 la: ');

   for i:=1 to n do

     begin

        if i mod 3=0 then write(i:3);

        inc(d);

     end;

   write('Co ',d,' so chia het cho 3');

readln;

end.

Học tốt!