Question

Am nevoie de ajutor!
Va rog spunetimi cum se rezolva un Algoritm in care arătam ca x este nr prim!
Dau funda.

Answer 1

uses crt;

function prim(a:longint):boolean;

var i:longint;

   f:boolean;

begin

if a<2 then f:=false

else

begin

 f:=true;

 i:=2;

 while (i*i<=a) and f do

 if a mod i=0 then f:=false

 else i:=i+1;

end;

prim:=f;

end;

var n:integer;

begin

clrscr;

writeln('Enter un numar natural n=');

readln(n);

if prim(n)then writeln('Prim')

else writeln('Nu este prim');

readln

end.