Primo
Publicado por Leonardo 28/05/2007
[ Hits: 3.611 ]
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.
escreve os números de 1 a 9 com repeat - until
programa pra somar e tirar média
Editor de texto em Pascal/Lazarus
Programa que realiza o reajuste salarial de acordo com o cargo
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (4)
Não Consigo instalar o cli-visualizer no Ubuntu 24.04 (2)
compilação samba 4.22 rock linux 9.5 (1)
Posso instalar usar o grub sem ter linux instalado, para iniciar o win... (1)
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (4)