Primo_for
Este script verifica se um determinado número é primo.
Usa o comando "for".
Usa o comando "for".
Descrição
Este script verifica se um determinado número é primo.
Usa o comando "for".
Usa o comando "for".
PROGRAM primo_for;
var
p,i:integer;
cond: boolean;
Begin
writeln('Digite um numero: ');
readln(p);
cond:= true;
if (p=1) or (p=0) then
cond:= false;
for i:= 2 to p-1 do
if p mod i=0 then
cond:= false;
if (cond = false) then
writeln(p,' nao eh um numero primo')
else
writeln(p,' eh um numero primo');
end.