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.

`1)`

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.

`2)`

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.

`3)`

var i,S1,S2:integer;

begin clrscr;

S1:=0; S2:=0;

for i:=1 to n do

if i mod 2=0 then S1:=S1+i

else S2:=S2+i;

writeln('Trung binh cong cua các so chan cua n so tư nhien dau tien la: ',S1);

writeln('Trung binh cong cua các so le cua n so tư nhien dau tien la: ',S2);

readln;

end.