[Resolvido] programa pascal - numeros primos

[Leandro B. Lopes 0]

Olá pessoal, preciso fazer um programa par um exercicio da faculdade (Escrever um programa que gera e escreva os primeiros 5 números primos). consegui fazer um que me informa o numero em um determinado intervalo mais o que eu preciso é os 5 primeiro só.

 

[/code]
program ex32;
uses crt;
var x, i, cont: integer;
begin
clrscr;
for x:= 1 to 30 do
	begin
	cont:=0;
	for i:= 1 to x do
		begin
		if x mod i = 0 then
		cont:=cont + 1;
		end;
	if cont=2 then
	   begin
	   writeln(x);
	   end;
	end;
readkey;
end.
[code]

[_Isis_ 202]

2,3,5,7,11. Pronto.

Faça uma contagem ao invés de usar for.

[quitZAUMMM 18]

http://pt.wikipedia.org/wiki/Crivo_de_Eratóstenes

[Leandro B. Lopes 0]

CONSEGUI RESOLVER....

 

[/code]

PROGRAM NUMPRIMOS;
USES CRT;
VAR NUM,CONT,I,np : LONGINT;
BEGIN
  CLRSCR;
  NUM:=1;
  WHILE np <= 5 DO
	BEGIN
	CONT:=0;
	 FOR I:=1 TO NUM DO
	  BEGIN
		IF NUM MOD I = 0 THEN
		CONT:=CONT+1;
	  END;
		IF CONT = 2 THEN
		BEGIN
		WRITELN(NUM,' : É PRIMO');
		np:=np+1;
		END;
		NUM:=NUM+1;
	END;
READKEY;
END.
[code]

[quitZAUMMM 18]

q bom ;D

 

[]s