Primo_for

Publicado por Leonardo 28/05/2007

[ Hits: 3.191 ]

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 décimo terceiro no Lazarus

exemplo de vetores

dizer se o aluno passou ou nao

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

Número 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