Números primos (usando arrays)
Publicado por Santiago Staviski (última atualização em 10/12/2009)
[ Hits: 8.351 ]
Homepage: http://allenkonstanz.blogspot.com
Download lista03_questao04v2.pas
Download 1259240296.lista03_questao04v2.pas (versão 2)
Usando o Crivo de Erastótenes, fiz esse algoritmo que informa os números primos e a quantidade no intervalo de 2 a 1000.
Versão 2 - Enviado por Santiago Staviski em 26/11/2009
Changelog: Nessa versão o programa pede para o usuário informar o intervalo de números primos
Download 1259240296.lista03_questao04v2.pas
program primos; var i,x,qnt:integer; num:array[2..1000] of boolean; BEGIN qnt:=0; {inicialmente todos os numeros sao primos!} for i:=2 to 1000 do begin num[i]:= true; end; {processo de verificação dos primos} for i:=2 to 1000 do begin x:=2; while i*x <=1000 do begin num[i*x]:= false; {nao eh primo} x:=x+1 end; end; {imprimir os números} for i:=2 to 1000 do begin if num[i] = true then write(i,' '); qnt:=qnt+1; end; END.
Operações básicas da matemática
calcular o percentual de pessoas que sao maiores de idade
dizer se o aluno passou ou nao
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Dongle Bluetooth 5.0 não funciona no Pop Os 22.04 (2)
Impressora Canon Ip 1800 (Drivers) 64 bit (2)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba