Programación de código cerdo
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
o:= I;
Y o lt gt0 haz
start
o:= o div 10;
para k:=2 a (o-1) hacer
Si (o mod k)=0, entonces comience c: = 0; vaya a 10
si no c: = 1;
Fin;
Si c=1, comienza writeln(I); = q 1; >
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 do
Inicio
Leer (a[I]);
si (max lt; a[i]) entonces max:= a[I];
Fin ;
Para i:=1 to n do
Si a[i]=max, entonces comienza j:= I;Ir a 10;Fin;
10:
writeln(j);
Escribir (max);
Cerrar (entrada);
Cerrar (salida);
Fin.