Bài 1:

Program bt1;

Uses crt;

Var S,d,i,N: integer;

begin

clrscr;

wrileln(' Nhap gia trị n: '); readln(n);

d:=0;

S:=0;

for i:= 1 to n do if i mod 3 = 0 then

      begin

         S:=S+i;

         writeln(' Tong cac so chia het cho 2: ');

         readln(S);

         d:=d+1;

         writeln(' Co ' d ' chia het cho 2 ',d );  

         Readln

         End;

End.

Bài 2:

Program bt2;

Uses crt;

Var n,i,d,N: integer;

Begin

clrscr;

writeln(' Nhap n: '); readln(n);

d:=0;

S:=0;

for i:=1 to N do if mod 4 = 0 then

      begin

           S:=S*i;

           Writeln(' Tich cac so chia het cho 4: ');

           readln(S);

           d:=d+1;

           Writeln('Co ' d ' chia het cho 4 ',d);

           Readln(d);

           End;

readln

end.

Bài 3:         

Program bt3;

Uses crt;

Var i,n,tong: integer;

      tbc: real;

begin

clrscr;

write(' nhap gia tri n: '); readln(n);

tong:=0;

i:=1;

while i <=n do

  begin

     tong:= tong+i;

     i:=i+1;

  end;

tbc:=tong/n;

writeln(' trung binh cong la: ',tbc);

readln

end.

bài 1

uses crt;

var n,i,j,s,k,l,g:word;

begin

clrscr;

write('N=');

readln(n);

for i:=1 to n do if i mod 3=0 then l:=l+i;

write('tong la:',l);

readln;

for j:=1 to n do if j mod 3=0 then k:=j;

for i:=1 to n do if k=i then s:=s+1;

write('co ',s,' so chia het cho 3 tu 1 den N');

readln

end.

Bài 2

uses crt;

var n,i,j,s,k,l:word;

begin

clrscr;

write('N=');

readln(n);

for i:=1 to n do if i mod 4 =0 then l:=l*i;

write('tich la:',l);

readln

Anh làm như phần 2 bài trên chỉ cần thay 3=4

Bai 3

uses crt;

var n,i,s:word;

begin

write('N=');

readln(n);

for i:=1 to n do s:=(s+i)/n;

write('TBC la:',s);

readln

end.