Números primos (usando arrays)
Usando o Crivo de Erastótenes, fiz esse algoritmo que informa os números primos e a quantidade no intervalo de 2 a 1000.
Descrição
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ões atualizadas deste script
Changelog: Nessa versão o programa pede para o usuário informar o intervalo de números primos
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.