Viết chương trình đếm xem có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến 100

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

Bài 1:

Program BTT;Uses crt;Var i,d: longint;Begin        Clrscr;        d:=0;        For i:=3 to 99 do                If i mod 3 = 0 then inc(d);        Write('Co ',d,' so chia het cho 3 trong 100 so tu nhien dau tien');        Readln

End.

Bài 2:

Program BTT;Uses crt;Var n,i,s: longint; tbc: real;Begin        Clrscr;        Write('Nhap n: '); Readln(n);        s:=0;        For i:=1 to n do                s:=s+i;        tbc:=s/n;        Write('Trung binh cong cua ',n,' so tu nhien dau tien la: ',tbc:0:2);        Readln

End.

Bài 3:

Program BTT;Uses crt;Var n,i,dc,dl,tc,tl: longint;    tbcc,tbcl: real;Begin        Clrscr;        Write('Nhap n: '); Readln(n);        dc:=0; dl:=0; tc:=0; tl:=0;        For i:=1 to n do        Begin                If i mod 2 = 0 then                Begin                        tc:=tc+i;                        inc(dc);                End                Else                Begin                        tl:=tl+i;                        inc(dl);                End;        End;        tbcc:=tc/dc;        tbcl:=tl/dl;        Writeln('TBC cac so chan: ',tbcc:0:2);        Write('TBC cac so le: ',tbcl:0:2);        Readln

End.

Viết chương trình in ra các số chẵn chia hết cho 3 từ 1 đến 100 và đếm có bao nhiêu số?

Anh chị giúp em với ạ

Viết chương trình đếm các số chia hết cho 3 từ 1 đến 100. Kết quả hiện lên màn hình.