var i,k,n,x,p,s:integer; begin readln(n); for k := 1 to n do begin x := 0; for i := 1 to k do begin if k mod i = 0 then inc(x) end; if x = 2 then begin p += 1; if n<>k then inc(s); end; end; if s=p then writeln('Nu este prim') else writeln('Este prim'); end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!
