Program S3;
Var
p,q ,x,i : longint;
facteur : text;
//***********************************
Procedure saisie(Var p,q : longint);
Begin
Repeat
write('donner q :');
readln(q);
Until (q>10) And (q <100000);
Repeat
write('donner p :');
readln(p);
Until (p>10) And (p <q);
End;
//***********************************
Function facteur_p(x : integer) : string;
Var
i,n : integer;
ch,c : string;
Begin
i := 2;
ch := '';
n := x;
str(x,ch);
ch := ch +'=';
Repeat
While x Mod i = 0 Do
Begin
str(i,c);
ch := ch+c + '.';
x := x Div i;
End;
i := i+1;
Until i > x ;
delete(ch,length(ch),1);
facteur_p := ch;
End;
//***********************************
Begin
saisie(p,q);
assign(facteur,'c:\facteur.txt');
rewrite(facteur);
For i:=p To q Do
Begin
writeln(facteur,facteur_p(i));
writeln(facteur_p(i),' ');
End;
close(facteur);
End.
Inscription à :
Publier les commentaires (Atom)
