قسم الرياضيات و الإعلام الإلي

En peut fair une boucle 

Algorithme   somdiv ;

Var i,n,s,d: entière ;

Début

Lire( n);

Pour i:=1a n faire

d:=1 div i;

i:=i+1;

S:=1+d;

Fin pour;

Écrire(s);

Fin.

Dans la réponse  de Fouathia il faudra faire le test sur N stritement positif

initialiser S et S n'est pas entier

d:=1/i c'est une division réelle pas entière

s:=s+d

Vraiment s est réel mais je déclare que n est entière 

En peut fair une boucle 

Algorithme   somdiv ;

Var i,n,s,d: entière ;

Début

Lire( n);

Pour i:=1a n faire

d:=1 / i;

i:=i+1;

S:=s+d;

Fin pour;

Écrire(s);

Fin.

algorithme som;

var i , n,s, d : entiere ;

debut 

ecrire( ' donnez n') ;

lire(n);

pour i := 1 a n faire 

d := 1/ i ;

i := i +1 ; 

s := s+d ; 

fin;

ecrire( ' la somme est' , s ) ;

fin .

algorithme som;

var i , n,s, d : entiere ;

debut 

ecrire( ' donnez n') ;

lire(n);

pour i := 1 a n faire 

d := 1/ i ;

i := i +1 ; 

s := s+d ; 

fin;

ecrire( ' la somme est' , s ) ;

fin .

Algorithme suit;

VAR s,n,i:entier;

Debut

Lire(n);

Si n>0 alors

S:=1;

Pour i:=1 a n faire

S:=(s+1/i);

Ftq

fsi;

Ecrire(s);

Fin.

algorithme suite;

var s,n,i:entier;

debut

lire(n);

si n>0 alors

s:=1;

pour i:=1 a n faire

s:=(s+1/i);

ftq

fsi;

ecrire(s);

fin.

Algorithme suite ;

Var n,s,i:entier ;

Début 

Lire (n);

Si n>0 alors 

Si:=1;

Pour i:=1 a n fait

S:=(s+1/i);

Ftq

Fsi;

Écrire (s);

Fin.

En peut faire une boucle 

Algorithme   somdiv ;

Var i,n,s,d: entière ;

Début

Lire( n);

Pour i:=1a n faire

d:=1 / i;

i:=i+1;

S:=s+d;

Fin pour;

Écrire(s);

Fin.