Prueba

FIN
FIN
FIN
FIN
var
s
;
FIN
FIN
function
FactorialRecursivo
(
n
)
FIN
{
FIN
if
(
n
==
0
)
FIN
{
FIN
return
1
FIN
}
FIN
return
n
*
FactorialRecursivo
(
n
-
1
)FIN
}
FIN
FIN
function
FactorialDo
(
n
)
FIN
{
FIN
var
factorial
=
1
FIN
do
FIN
{
FIN
factorial
*=
n
--
FIN
}
while
(
n
)
FIN
return
factorial
FIN
}
FIN
FINfunction
FactorialWhile
(
)
FIN
{
FIN
var
factorial
=
1
,
i
FIN
while
(
i
<
num
)
FIN
{
FIN
factorial
*=
++
i
FIN
}
FIN
return
factorial
FIN
}
FIN
FIN
functionFactorialFor
(
n
)
FIN
{
FIN
var
i
,
factorial
=
1
FIN
for
(
i
=
1
;
i
<=
n
;
i
++
)
FIN
{
FIN
factorial
*=
i
FIN
}
FIN
return
factorial
FIN
}
FIN
FIN
var
For,
Do
,
While
;
FIN
FIN
function
imprime
(
msg
,
f
)
FIN
{
FIN
document.write
(
s
)
FIN
document.write
(
msg
)
FIN
document.write
(
f
)
;
FIN
document.write
(
"\n")
FIN
return
FIN
}
FIN
FIN
s
=
"El factorial "
FIN
FIN
document.write
(
s
)
FIN
document.write
(
"\nIntroduce un 'número'."
)
FIN
prompt
(
num
)
FIN
FIN
switch
(
num
)FIN
{
FIN
case
1
:
FIN
case
0
:
document.write
(
"El factorial de "
,
num
,
" siempre es 1.\n"
)
;
break
FIN
default
:
FIN
if
(
num
<
0
)
FIN
{
FIN
document.write(
'No existe el factorial de un negativo.\n'
)
FIN
}
FIN
else
FIN
{
FIN
For
=
FactorialFor
(
num
)
FIN
While
=
FactorialWhile
(
)
FIN
Do
=
FactorialDo
(
num
)
FIN
imprime(
"recursivo es: "
,
FactorialRecursivo
(
num
)
)
FIN
imprime
(
"con do-while es: "
,
Do
)
FIN
imprime
(
"con while es: "
,
While
)
FIN
imprime
(
"con for es: "
,
For
)FIN
}
FIN
}
FIN
FIN
function
bisiesto
(
a
)
FIN
{
FIN
return
(
a
%
4
==
0
&&
a
%
100
!=
0
||
a
%
400
==
0
)
FIN
}
FIN
FIN
function
dias
(
m
,
a
)...