$Câu 1:$

uses crt;

var n,i: integer;

      T: real;
Begin

         clrscr;
         write('Nhap N: '); readln(N); 
         T:=1;
         for i:=1 to N do T:=T+1/i;
         write('T = ',T:2:2);
         readln
End.

$Câu 2:$

uses crt;

var n,i: integer;

      S: real;
Begin

         clrscr;
         write('Nhap N: '); readln(N); 
         S:=1;
         for i:=1 to N do S:=S*1/i;
         write('S = ',S:2:2);
         readln
End.

$Câu 3:$

uses crt;

var n,i: integer;

      S: real;
Begin

         clrscr;
         write('Nhap N: '); readln(N); 
         S:=1;
         for i:=1 to N do 
              if i mod 2<>0 then S:=S+1/i;
         write('S = ',S:2:2);
         readln
End.

$Câu 4:$

uses crt;

var n,i: integer;

      S: real;
Begin

         clrscr;
         write('Nhap N: '); readln(N); 
         S:=1;
         for i:=1 to N do 
              if i mod 2=0 then S:=S*i;
         write('S = ',S:2:2);
         readln
End.
$Câu 5:$

uses crt;

var n,i,d: integer;
Begin

         clrscr;
         write('Nhap N: '); readln(N); 
         for i:=1 to N do 
              if i mod 3=0 then d:=d+1;
         write('Co ',d,' so chia het cho 3 tu 1 den ',N);
         readln
End.
$Câu 6:$

uses crt;

var n,i,T: integer;

Begin

         clrscr;
         write('Nhap N: '); readln(N);
         T:=1;
         for i:=1 to N do 
              if n mod i=0 then T:=T+i;
         write('Tong cac uoc cua ',N,' la: ',T);
        readln
End.

Câu 1:

var n,i: integer; kq: real;
begin
    write('Nhap so nguyen N: ');
    readln(n); 
    kq:=1;
    for i:=2 to n do kq:=kq+(1/n);
    writeln('Ket qua la: ',kq:0:2);
    readln
end.

Câu 2: 

var n,i: integer; kq: real;
begin
    write('Nhap so nguyen N: ');
    readln(n); 
    kq:=1;
    for i:=2 to n do kq:=kq*(1/n);
    writeln('Ket qua la: ',kq:0:2);
    readln
end.

Câu 3: 

var n,i: integer; kq: real;
begin
    write('Nhap so nguyen N: ');
    readln(n); 
    kq:=1;
    for i:=2 to n do 
        if (i mod 2 = 1) then kq:=kq+(1/n);
    writeln('Ket qua la: ',kq:0:2);
    readln
end.

Câu 4:

var n,i: integer; kq: real;
begin
    write('Nhap so nguyen N: ');
    readln(n); 
    kq:=1;
    for i:=2 to n do 
        if (i mod 2 = 0) then kq:=kq*i;
    writeln('Ket qua la: ',kq:0:2);
    readln
end.
Câu 5:

var n,i: integer; kq: integer;
begin
    write('Nhap so nguyen N: ');
    readln(n); 
    for i:=1 to n do 
        if (i mod 3 = 0) then inc(kq);
    writeln('Ket qua la: ',kq);
    readln
end.
Câu 6:

var n,i: integer; kq: integer;
begin
    write('Nhap so nguyen N: ');
    readln(n);
    kq:=1;
    for i:=2 to n do 
        if (n mod i = 0) then kq:=kq+i;
    writeln('Ket qua la: ',kq);
    readln
end.