Números primos (usando arrays)
Publicado por Santiago Staviski (última atualização em 10/12/2009)
[ Hits: 8.631 ]
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.
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Nenhum coment�rio foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Atalhos duplicados (sobras de instalações anteriores) (2)
PRECISO DE AJUDA !!!!, NA INSTALAÇÃO DO LINUX MINT (0)
tentando instalar em um notebook antigo o Linux LegacyOS_2023... (3)
aplicativos criados com webapp-manager não aparecem no menu do xfce (0)