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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!