Program S4;
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:longint) : boolean;
Var
i : integer;
P : integer;
B : boolean;
Begin
P := 1;
For i:=2 To (n Div 2) Do
If (N Mod i = 0) Then
P := P*i;
i := 0;
Repeat
i := i+1;
B := N = P;
N := N*N;
Until (B) Or (N>P);
Verif := B;
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)
