👤
Paula119
a fost răspuns

se citesc de la tastatura un nr .sa se verifice daca este prim sau nu?

Răspuns :

Daiana65
for (i=1;i<=n;i++){
if(nr.<0){
negative = negative +1
Vezi imaginea Daiana65
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.

Alte intrebari