Question

Se considera numarul n de tip indiger .Sa se scrie un program care determina daca numarul n este prim .

Answer 1

program n_prim;
var    n,i:integer;
       prim:boolean;
begin
     write('n=');readln(n);
     prim:=true;
  for i:=2 to trunc(sqrt(n)) do
     if n mod i=0 then begin prim:=false; break; end;
  if prim then write('numarul este prim')
          else write('numarul nu este prim');
end.