Bookmark and Share

Liens sponsorisés

Factoriel Print E-mail
Written by Administrator   
Friday, 06 March 2009 14:32
Enoncé de l'exercie
Ecrire un programme en pascal qui permet de saisir un entier N(N>=100) et afficher son factoriel.
Solution en Pascal
Progarm factoriel;
uses wincrt;
var N,i,Fact:integer;
begin
repeat
read(N);
until(N >=100);
Fact:=1;
for i:=1 to N do
Fact:=fact * i;
write('Le Factoriel de ',N,'est :',Fact);
end.
 

 

Liens sponsorisés