Răspuns :
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!