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

si nbr est le plus petit èlement dans la suit

Algorithm suit

;Var nbr,cpt:reel

Debut

(Lire(nbr

Cpt:=0;

Pour cpt=0 a nbr faire

;(Ecrire(cpt-1

Cpt:=cpt-1

Fpour

.Fin

Algorithme la suite;

var nbr,cpt:réel;

début

lire(nbr)

cpt:=0;

pour cpt=0 faire

écrire(cpt-1);

cpt:=-1

fpour;

fin.

program lasuite;

uses crt;

var n,cpt:real;

clrscr;

begin

writeln('tapez un nombe',n);

readln(n);

cpt:=0;

for cpt=0 do

writeln('cpt-1');

cpt:=-1

fpour;

fin.

algorithme suite;

var n,cpt,s,min:entier;

debut

lire(n);

c:=n;

tantque n<>0 faire

debut

s:=s+n;

lire(n);

si n<min alors

      min:=n

fsi

fin;

ftq

ecrire('la somme est : ' , s , ' et le min est ' , min );

fin.

Algorithm suit;

Var nbr,cpt:reel;

Debut

Lire(nbr)

Cpt:=0;

Pour cpt=0 a nbr faire

Ecrire(cpt-1);

Cpt:=cpt-1

Fpour

Fin.

algorithme suit ; 

var nbr,  cpt : reél ; 

debut

ecrire ( ' donnez les nombrs ' ) ;

lire( nbr);

pour cpt := 0 faire

ecrire ( cpt -1 ) ;

cpt := cpt -1  

fpour ;

fin. 

si nbr est le plus petit èlement dans la suit

Algorithm suit

;Var nbr,cpt:reel

Debut

(Lire(nbr

Cpt:=0;

Pour cpt=0 a nbr faire

;(Ecrire(cpt-1

Cpt:=cpt-1

Fpour

.Fin