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
Power for integers
practica 3 ejercicio B3
practica 3 ejercicio 3
imprimir_numeros_hasta_N
Увеличение двоичного числа на 1
practica 3 ejercicio B6
1
Sorting
janja - popravek
пример рекурсивной функции