Primo_for

Publicado por Leonardo 28/05/2007

[ Hits: 3.293 ]

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

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

Extenso em dll, com parâmetros adicionais

soma de um intervalo

encontrar o menor valor em um vetor

Script Tabuada


  

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