Primo
Publicado por Leonardo 28/05/2007
[ Hits: 3.699 ]
Este script verifica se um determinado número digitado é primo.
Usa o comando "repeat".
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.
mais um modelo de programa com vetor
média dos numeros informados em posiçoes pares em um vetor
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Linux Debian 11 Bullseye Reiniciando Sozinho (1)
Bora fazer um teste? mbti (11)
Possível Migração de windows para linux ???? (pc da empresa) (2)