Program S14;
Var
N,M : integer;
//*********************************
Procedure saisie(Var N,M:integer);
Begin
Repeat
write('2 entiers : ');
readln(n,m);
Until (n >10) And (n<=m) And (m<31000);
End;
//*********************************
Function som_div(x:integer) : longint;
Var
i : integer;
s : longint;
Begin
s := 0;
For i:=1 To x Do
If x Mod i = 0 Then
s := s+i;
som_div := s ;
End;
//*********************************
Procedure Affich_KParfait(N,M,K:integer);
Var
i : integer;
Begin
For i:=N To M Do
Begin
If som_div(i)=k*i Then
write (i:6);
End;
End;
//*********************************
Procedure Affiche(N,M:integer);
Var
i,cp : integer;
Begin
For cp:=2 To 4 Do
Begin
writeln('Entiers ',cp,' Parfaits :');
Affich_KParfait(N,M,cp);
Writeln ;
End;
End;
//*********************************
Begin
Saisie(N,M);
Affiche(N,M);
End.e
Inscription à :
Publier les commentaires (Atom)
