Question

Se introduce de la tastatura un număr n. Sa se scrie un program Pascal care afișează prime n perechi de numere prime impare. De ex prima pereche e (3,5) , a doua (5,7),

A treia (7, 11) si tot asa

Answer 1

program PerechiDePrime;

var n, a, b, p, i: integer;

begin

 write('nr. de perechi? n= '); read(n);

 writeln('Primele ',n,' perechi de numere impare prime:');

 a:=3; b:=5;

 while (n>0) do

   begin

     p:=1; i:=3;

     while (p=1) and (i<=b div 2) do

         begin

            if b mod i=0 then p:=0;

            i:=i+2;

         end;

     if p=1 then

       begin  write('(',a,',',b,')   '); a:=b; n:=n-1; end ;

     b:=b+2;

  end;

end.