Primo_for

Publicado por Leonardo 28/05/2007

[ Hits: 3.175 ]

Download PRIMO_FO.PAS




Este script verifica se um determinado número é primo.

Usa o comando "for".

  



Esconder código-fonte

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.

Scripts recomendados

soma de matrizes

Números primos (usando arrays)

Fatorial

cadastro de multiplos clientes com registro

Primo


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts