Se introduce un numar N. Sa se scrie un program care determina primul numar prim mai mare ca N. In Pascal
Răspunsuri la întrebare
program primulPrim;
var n: integer;
function prim(num:integer):boolean;
var p, i:integer;
begin
p:=1;
if (num=0) or (num=1) then p:=0
else
begin
if (num>2) then
begin
i:=3;
while (i*i<=num) do
begin
if num mod i=0 then begin p:=0; i:=num; end;
i:=i+2;
end;
end;
end;
if p=1 then prim:=true
else prim:=false;
end;
begin
write('n= '); read(n);
write('primul prim mai mare ca ',n,' este ');
if (n=1) or (n=2) then writeln(n+1)
else
begin
if n>2 then
begin
if n mod 2=0 then n:=n+1
else n:=n+2;
while (not prim(n)) do n:=n+2;
writeln(n);
end;
end;
end.