Program S9;
Var
a,b : integer;
//***********************************
Procedure Saisie(Var a,b:integer);
Begin
Repeat
Write('a = ');
Readln(a);
Write('b = ');
Readln(b);
Until (2<=a) And (a<b) And (b<=100);
End;
//***********************************
Function Verif(N:integer) : boolean;
Var
i : integer;
P : integer;
Begin
P := 1;
For i:=2 To (n Div 2) Do
If (N Mod i = 0) Then
P := P*i;
Verif := P=N;
End;
//***********************************
Procedure Afficher(a,b:integer);
Var
i : integer;
Begin
Writeln('Les nombres de ',a,' à ',b,' vérifiant la propriété sont : ');
For i:=a To b Do
Begin
If verif(i) Then
writeln(i);
End;
End;
//***********************************
Begin
Saisie(a,b);
Afficher(a,b);
End.
Inscription à :
Publier les commentaires (Atom)
