Lois Lane

:ninja: 01 program fatorial; 002 uses wincrt; 003 var fat,n,i:integer; 004 begin 005 read(n); 006 fat:=1; 007 for i:=1 to n do fat:=fat*i; 008 writeln(fat) 009 end. A ideia é esta descrita acima mesmo, porém deve ser usado um "tratamento especial" de dados, quando o valor for 1 ou zero ( do jeito que stá descrito acima, falha). A minha sugestão é a seguinte: (pseudocódigo em Pascal!) program FATORIAL_CALC; var N, j : integer; FAT_N: real; (*o fatotrial de um nº muito alto pode ultrapassar 3.2768, valor máximo para variáveis inteiras, então declarei real porque o limite superior é maior*) BEGIN writeln ('Digite N'); readln (N); If (N=0) then FAT_N := 1 Else begin FAT_N := 1; for j := 1 to N do FAT_N := FAT_N*j; end; writeln (FAT_N:50:0); END. Sei que o post é bem antigo, mas espero que ainda possa ajudar alguém... ^_^