IDENTIFICACION DE NUMEROS PRIMOS

Escribir un programa que identifique si los numeros introducidos son primos o no.

En este programa deberemos utilizar mod para ayudarnos a identificar si los numeros introducidos son primos o no.



Program numero_primo;
uses
crt;
var
num: integer;
y:integer;
const
a=2;
begin
writeln('Escribe un numero');
readln(num1);
y:=num mod a;
if (y=0) then
writeln('El numero no es primo')
else
writeln('El numero es primo');
readln;
end.

NUMEROS PRIMOS.EXE


EL PROGRAMA EN EJECUCION SE VERA ASI: