Programación de casos de cerdos
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>
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.