TesteALGO1.pdf


Aperçu du fichier PDF testealgo1.pdf

Page 1 2 3 4 5 6




Aperçu texte


Groupe D6

program exo1;
uses wincrt;
var n,f,i:integer;
begin
writeln(' Lisez moi une valeur de n');
read(n);
while(n<0) do
begin
writeln(' Relisez moi la valeur de n');
read(n);
end;
if (n=0) then
writeln(' Le factorielle de 0 est 1')
else
begin
f:=1;
for i:=1 to n do
f:=f*i;
writeln(' La factorielle de ', n, 'est ',f);
end;
end.

5