Đáp án:

 

Giải thích các bước giải:

 1/ Tính tổng từ 1 → N 

 Program TinhTong; 

 Uses crt;

 Var S , i , n : Integer;                            // Khai bao bien su dung 

 BEGIN 

            Write( ' Nhap so n : ' ) ;           // Thong bao nhap lieu  

            Readln( n ) ;                            // Nhap gia tri n,  (voi &N la d/c bien N) 

            S : i = 0 ;                                  // Nhoi gan gia tri ban dau cho S

            For i :=1 to n do                     // Lap voi moi i co gia tri tu 1 den N 

                               S :=S + i                   // Tinh tong cong don i vao S 

            Writeln(   Tong = ' , S) ;              // Xuat ket qua tong S ra man hinh 

            Readln; 

  END . 

2/ Tính biểu thức 1+ 1/2 +....+1/n 

     Program bai2; 

     Var S:real;i,n;longint; 

      BEGIN 

                 Write( ' N= '); 

                 Readln( N ); 

                 S : = 0 

                 For i :=1 to n do

                                    S:= S+1/i; 

                  Write( ' S= ', S 4:2 );  

                  Readln; 

        END.

program so_n;

uses crt;

var n,i:integer;

      S1,S2:longint;

begin clrscr;

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

   begin

         S1:=0;     

      for i:=1 to n do

         S1:=S1+i;

      writeln('Tong tu 1 den ',n,' la: ',S1);

   end;

   begin

         S2:=0;     

      for i:=1 to n do

         S2:=S2+1/i;

      writeln('Tong bieu thuc la: ',S2);

   end;

readln;

end.

Học tốt!