👤

Va rog sa ma ajutati daca stiti.​

Va Rog Sa Ma Ajutati Daca Stiti class=

Răspuns :

function prim(x:integer):boolean;

var  y:integer;

    f:boolean;

begin

x:=abs(x);

if x<2 then f:=false

else if x=2 then f:=true

else if x mod 2=0 then f:=false

else

begin

 f:=true;

 y:=3;

 while(y*y<=x)and f do

 if x mod y=0 then f:=false

 else inc(y,2);

end;

prim:=f

end;

var n,i:integer;

begin

repeat

write('Scrie un numar n=');

readln(n);

until prim(n);

i:=n+1;

while not prim(i) do

i:=i+1;

write('Urmatorul numar prim mai mare ca n este=',i);

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!


En Studentsy: Alte intrebari