Mètoode de calcul n !

Résolu/Fermé
pseudo anonyme - 28 déc. 2007 à 11:46
 le père - 28 déc. 2007 à 14:28
program calcul;

uses wincrt;
var i,n,f:integer;
begin
writeln('entre ie valeur de n:');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
write('res', f);
end.
A voir également:

1 réponse

Bonjour

Très bien, pseudo anonyme.Le prix Nobel d'informatique n'est pas loin !
0