Question

sa se afiseze daca nr n citit de la tastatura este prim sau nu. PASCAL​

Answer 1

Răspuns:

program NumarPrim;

var n,d,p:integer;

begin

 write('n= '); read(n);

 p:=1;

 if n<2 then p:=0;

 if n>2 then

   begin

     if n mod 2=0 then p:=0;

     d:=3;

     while (d*d<=n)and(p=1) do

       begin

         if n mod d=0 then p:=0;

         d:=d+2;

       end;

    end;

 if p=1 then writeln('este prim')

 else writeln('nu-i prim');

end.

Explicație: