calculer le factoriel
Page 1 sur 1
calculer le factoriel
Admin Dim 1 Mai - 17:31
ÉNONCÉ
Ecrire un programme qui permet de calculer le factoriel de n (avec n≥0)
PASCAL
program factoriel;
uses wincrt;
var
i,n,fact:integer;
begin
repeat
writeln('saisir un entier');
readln(n);
until n>0;
fact:=1;
for i:=2 to n do fact:=fact*i;
writeln('le factoriel de ', n,' est =', fact);
end.
Ecrire un programme qui permet de calculer le factoriel de n (avec n≥0)
PASCAL
program factoriel;
uses wincrt;
var
i,n,fact:integer;
begin
repeat
writeln('saisir un entier');
readln(n);
until n>0;
fact:=1;
for i:=2 to n do fact:=fact*i;
writeln('le factoriel de ', n,' est =', fact);
end.
Admin- Admin
- Messages : 137
Date d'inscription : 29/12/2010 -
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum