Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Promo1
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; { si N es par no es primo} 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} d:=d + 2; end; msg:= msg1; m1: writeln (N, msg); readln; end.
run
|
edit
|
history
|
help
0
NHATANH
Lab3Factorial
Programa para calcular digito verificador de un RUT
Lab1SumWithWhile
practica 9 ejercicio 9 BETA
Урок 6. Задача 9 (1533). Два самых маленьких числа
hh
practica 7 ejercicio 5
La calculatrice
Largest Prime Factor