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!

Program BTH;
uses crt;
var n,i:longint;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        For i:=1 to n do
                if i mod 3 =0 then write(i,' ');
        readln;
end.