Question

(EM PASCAL) Faça um algoritmo utilizando uma função (function/sub-rotina) para saber se um número é primo.

Answer 1

Eis o programa


program Testa_primos;

var i : integer;

function eh_primo( numero: integer) : boolean ;
var i: integer;
deve_ser_primo : boolean;
begin
   deve_ser_primo := true;
   if numero mod 2 = 0 then
      deve_ser_primo :=  false
   else begin
      i := 3;
      while i <=  (numero/2)+1 do begin 
         if numero mod i = 0 then begin
            deve_ser_primo :=  false ; 
            break;
         end;
         i := i + 2;
      end;
  end;
  eh_primo := deve_ser_primo;
end;

begin
    for i := 100 to 1000 do begin
       writeln('O numero ',i:5,' é primo ? ', eh_primo(i) );
    end;
end.