Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Primo1
program prime1; {Programa que te dice si el número dado es primo o no} const msg1=' is prime'; msg2=' is not prime'; label m1; var d,N: word; {número entero del 1 al 65535 } msg: string; {cadena del mensaje} begin write('N = '); {Introduce el numero a investigar} readln(N); {lee N} msg := msg1; {El número es primo} if N<4 then goto m1; { N<4 - los núm 1,2,3 son primos} msg := msg2; {El número no es primo} if not odd(N) then goto m1; {при N четном - составное} d:=3; {número primo menor de cuatro - 3} while d*d<=N do {hasta que d sea raíz cuadrada N} begin if (N mod d)=0 then goto m1; {si el resto = 0 es Divisible}
run
|
edit
|
history
|
help
0
busca de string
Mostrar un arreglo ( array )
Localisation ND
elas_ex0
imprimir_numeros_hasta_N
linear eq
Deskripsi
calcular_sumatoria_N
Tableau
eje8