For...do

program For_do;

uses crt;

var N,i:integer;

      S:longint;

begin clrscr;

   write('Nhap so N: '); readln(N);

      S:=0;

   for i:=1 to N do

      S:=S+1/i;

   write('Tong la: ',S);

readln;

end.

While...do

program While_do;

uses crt;

var N,i:integer;

      S:longint;

begin clrscr;

   write('Nhap so N: '); readln(N);

      S:=0; i:=1;

   while i<=N do

   begin

      S:=S+1/i; i:=i+1;

   end;

   write('Tong la: ',S);

readln;

end.

Học tốt!

For

#include <iostream>
using namespace std;
int main()
{
    float S=0,N;
    cout<<"Nhap N: ";
    cin>>N;
    for(int i=2;i<=N;i++){
        S+=1/(float)i;
    }
    cout<<"Tong S="<<S;
    //samon247
    return 0;
}

While

#include <iostream>
using namespace std;
int main()
{
    float S=0,N,i=2;
    while(i<=N){
        S+=1/i;
        i++;
    }
    //samon247
    return 0;
}