Primo
Publicado por Leonardo 28/05/2007
[ Hits: 3.778 ]
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.
encontrar o menor valor em um vetor
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)









