-
Lenguaje
Pascal
-
Descripción
Mustra el factorial de un número entero positivo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program prog_factorial;
uses crt;
var i, numero : integer;
var factorial : longint;
var tecla : char;
begin
factorial := 1;
write ('Ingrese un n'#163'mero: ');
readln (numero);
write (#10#13, numero, '! = 1');
for i:=2 to numero do
begin
factorial := factorial * i;
write(' '#158' ', i);
end;
writeln(' = ', factorial);
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var i, numero : integer;
var factorial : longint;
var tecla : char;
begin
factorial := 1;
write ('Ingrese un n'#163'mero: ');
readln (numero);
write (#10#13, numero, '! = 1');
for i:=2 to numero do
begin
factorial := factorial * i;
write(' '#158' ', i);
end;
writeln(' = ', factorial);
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.