Primo_for

Publicado por Leonardo 28/05/2007

[ Hits: 3.294 ]

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

registro de turma com record

Script que verifica se um número é primo ou não

soma de um intervalo

soma de matrizes

Calculadora de cargas


  

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