Primo
Publicado por Leonardo 28/05/2007
[ Hits: 3.784 ]
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.
soma da diagonal principal de uma matriz
Gerador de senha Pascal/Lazarus
Calculadora utilizando until e case
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
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Problemas com Driver NVIDIA (5)
Warcraft II Remastered no Linux? (8)
Instalação dualboot Windows 11 e Debian 13 (7)









