Programación de casos de cerdos

¿Dónde están tus hijos? La dificultad varía según la región. La competencia en las escuelas primarias es generalmente relativamente sencilla. Tengo algunas preguntas muy simples aquí, también puedes echarles un vistazo (la respuesta puede no ser la más simple y la velocidad de carrera puede no ser la más corta). Si necesita una explicación detallada, vuelva a preguntar.

Xiao Ming descubrió un fenómeno interesante. Algunos números (como 2333) son números primos. Después de eliminar el último número, descubrió que todavía era un número primo, y así sucesivamente, hasta el primer número. Ahora, dados los valores de n y m, encuentre todos estos números en este rango.

Ejemplo: Entrada: 2332 2334

Salida: 2333

Respuesta:

var n, m: entero;

b, c, q, I, j, k, o: entero;

Etiqueta 10

Inicio

readln(n, m) ;

Para i:=n a m hacer

Inicio

b:= 1;

Para j:=2 a ( i-1) hacer

Si (i mod j) = 0 entonces b:= 0;

Si b & lt& gt entonces 0

Iniciar

p>

o:= I;

Y o & lt& gt0 haz

iniciar

o:= o div 10;

Para k:=2 a (o-1) haga

Si (o mod k)=0, entonces comience c:= 0, vaya a 10; >

else c:= 1;

Fin;

Si c=1, comienza writeln(I);

10 :

Fin

Fin

Escribir (q);

(El programa no ha sido depurado, por lo que no debería haber ningún problema.)

A Cerdito le gustan las manzanas. Mamá Cerda quiere probar al cerdo y dejar que elija la manzana más grande de una vez. ¿Puedes ayudar a los cerdos?

Descripción: Ingrese el número n de manzanas y la masa de cada manzana, e imprima la masa máxima de la manzana y la posición de la primera aparición. Usando entrada y salida de archivos

Ejemplo: Entrada:

cinco

1 3 2 5 4

Salida:

Cuatro

Cinco

Respuesta:

var a: entero de matriz[1..10000];

n: entero ;

I, j: entero;

max: entero;

Etiqueta 10; Asignación (entrada, ' pig . in ');

Restablecer (entrada);

Asignación (salida, ' pig . out '); salida);

readln(n);

max:= 0

Para i:=1 a n hacer

Inicio

Leer (a[I]);

si (max & lt; a[i]) entonces max:= a[I];

Fin ;

Para i:=1 to n do

Si a[i]=max, comienza j:= I; Ir a 10;

10:

escribir(j);

escribir(max);

cerrar(entrada);

cerrar(salida);

Fin.