(Problema de búsqueda) Solución Pascal mono come plátano (mono)

Esta es

una secuencia escalonada de números

0, 1, 2, 9, 44, 265,....

Presione la fórmula para ver el código;

Al enviar, recuerde cambiar el nombre del archivo a mono.pas

programa liuke_cuopai;

var

i, k, a, b, c: entero largo

comenzar

asignar(entrada,'monkey.in');

asignar (salida, 'monkey.out');

reset(entrada);

reescritura(salida)

readln(k);

a: =0;

b: =1

para i: =3 a k hacer

comenzar

c: =(a b)*(i-1);

a:=b;

b:=c;

fin;

si k=1 entonces writeln(a) else si k=2 entonces writeln(b) else

writeln(c

close(input); >

cerrar(salida);

fin.