Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
zadacha7
binary_search-бинарный_поиск
Стандартные функции в паскале round, trunc, int, frac
aaaaaaa
НОД не по ЕВКЛИДУ но без массивов
practica 3 ejercicio 5
ANDRESSA LIMA NEPOMUCENO 600624624
janja - naloga 1 - 11.7.2013
practica 5 ejercicio 6
1
Please log in to post a comment.