(Resolvido) Numero Primo

[valterlin]

Bom como devem perceber sou novato em logica de programação e pra complicar cheguei boiando na Faculdade com as aulas já começadas. BOm vamos ao problema que tenho, seria esse exercicio me deem uma luz por favor.

Dado um numero pelo usuario verificar se ele é um numero primo ou não ?

Sei que todo numero primo e divisil por um e ele mesmo, mais ai que mora a duvida como fazer esse algoritmo ? o professor pediu em pseudocodigo e pascal alguém pode me ajudar por favor

[Beraldo]

Você tem que fazer um loop que vai de 2 a N - 1 , sendo N o número dado. Se N for divisível por algum dos números do intervalo do loop, ele não é primo.

OBS: X é divisível por Y se o resto da divisão de X por Y é zero. Ou:

X MOD Y = 0

ou no padrão C

X % Y == 0

[Jhonas]

Dado um numero pelo usuario verificar se ele é um numero primo ou não ?

Sei que todo numero primo e divisil por um e ele mesmo, mais ai que mora a duvida como fazer esse algoritmo ? o professor pediu em pseudocodigo e pascal alguém pode me ajudar por favor

Um exemplo prático em pascal do que foi dito pelo Beraldo seria isto:

program numprimos;
uses crt;

var x, i, cont: integer;

begin
clrscr;
write('Informe um numero: ');
readln(x);
cont:=0;
for i:= 1 to x do
    begin
    if x mod i = 0 then cont:=cont + 1;
    end;
if cont<=2 then
   begin
   writeln('O numero ', x, ' e primo.');
   end
else
    begin
    writeln('O numero ', x, ' não e primo.');
    end;
readkey;
end.

abraço

[valterlin]

Dado um numero pelo usuario verificar se ele é um numero primo ou não ?

Sei que todo numero primo e divisil por um e ele mesmo, mais ai que mora a duvida como fazer esse algoritmo ? o professor pediu em pseudocodigo e pascal alguém pode me ajudar por favor

Um exemplo prático em pascal do que foi dito pelo Beraldo seria isto:

program numprimos;
uses crt;

var x, i, cont: integer;

begin
clrscr;
write('Informe um numero: ');
readln(x);
cont:=0;
for i:= 1 to x do
    begin
    if x mod i = 0 then cont:=cont + 1;
    end;
if cont<=2 then
   begin
   writeln('O numero ', x, ' e primo.');
   end
else
    begin
    writeln('O numero ', x, ' não e primo.');
    end;
readkey;
end.

abraço

OBRIGADO RESOLVIDO MUITOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO OBRIGADO MESMO