Primo

Publicado por Leonardo 28/05/2007

[ Hits: 3.562 ]

Download PRIMO.PAS




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

Usa o comando "repeat".

  



Esconder código-fonte

var
p, n:integer;
r:real;

begin
    writeln('Digite o numero ');
    readln(p);
    n:=2;
    if p = 2 then
    writeln('O numero digitado eh PRIMO')
    else
    if p = 3 then
    writeln('O numero digitado eh PRIMO')
    else
     begin
     repeat
     r:= p mod n;
     n:= n + 1;
     until (n<p)  or (r=0);
     if r = 0 then
     writeln('O numero digitado nao eh PRIMO')
     else
     writeln('O numero digitado eh PRIMO');
     end;
end.

Scripts recomendados

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Fator

soma de números pares

Média e soma de números

Metodo de Ordenacion : Burbuja


  

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