Algo

Fermé
mina - 18 déc. 2008 à 21:55
 mina - 30 déc. 2008 à 18:49
Bonjour, ecrivez moi 1 algorithme de n! de maniere descendante avec le language pascal et merci beaucoup pour la réponse

1 réponse

program factoriel;
uses crt;
var
n,i:integer;
fact:real;
begin
repeat
writeln('entrer l"entier n');
readln(n);
until(n>=o);
if (n=0)or(n=1)then
begin
fact:=1;
end
else
begin
fact:=1;
for i:=1 to n do
begin
fact:=fact*i;
end;
end;
writeln('le factoriel de', n ,'est:',fact);
end.
0
merci bcp
0