un algoritmo que reciba un numero y diga si es primo o no
osmagalda
Algoritmo Numero_Primo Var Entero: i, n, cont Inicio Escribir ("Introduce un número") Leer (n) cont=0 para i=1 hasta n hacer si n mod i = 0 cont = cont +1 finsi finpara si cont = 2 hacer Escribir ("El numero es primo") sino Escribir ("el numero no es primo") finsi fin
Var
Entero: i, n, cont
Inicio
Escribir ("Introduce un número")
Leer (n)
cont=0
para i=1 hasta n hacer
si n mod i = 0
cont = cont +1
finsi
finpara
si cont = 2 hacer
Escribir ("El numero es primo")
sino
Escribir ("el numero no es primo")
finsi
fin