Program S5;
Type
Tab = Array[1..10] Of integer;
Var
T : tab;
N : integer;
//***********************************
Procedure Saisie(Var N:integer);
Begin
Repeat
Write('Entrer la taille du tableau : ');
Readln(n);
Until n In [2..10];
End;
//***********************************
Procedure Remplissage(Var T:tab; N:integer);
Var
i : integer;
Begin
For i:=1 To n Do
Repeat
Write('T[',i,'] = ');
Readln(T[i]);
Until (T[i]>=1000) And (T[i]<=9999);
End;
//***********************************
Function Nb_Oblong(N:integer) : boolean;
Var
i : integer;
B : boolean;
Begin
i := 9;
Repeat
i := i+1;
B := i*(i+1) = N;
Until (B) Or ((i*(i+1))> N);
Nb_Oblong := B;
End;
//***********************************
Procedure Afficher(T:tab; N:integer);
Var
i : integer;
Begin
Writeln('Les nombre proniques sont : ');
For i:=1 To n Do
If Nb_Oblong(T[i]) Then
Writeln(T[i]);
End;
//***********************************
Begin
Saisie(N);
Remplissage(T,N);
Afficher(T,N);
End.
Inscription à :
Publier les commentaires (Atom)
