se citeste de la tastatura un nr nat "n".Afisati numerele prime din intervalul 1-n
(cu instructiunea "for")
Răspunsuri la întrebare
Răspuns de
0
var i,k,n,x:integer;
begin
read(n);
for k := 1 to n do begin
x := 0;
for i := 1 to k do
if k mod i = 0 then inc(x);
if x = 2 then write(k, ' ')
end;
end.
begin
read(n);
for k := 1 to n do begin
x := 0;
for i := 1 to k do
if k mod i = 0 then inc(x);
if x = 2 then write(k, ' ')
end;
end.
stassahul:
chiar de 2 ori
cin>>n;
ok=1;
d=2;
for(i=1;i<=n;i++){
while(d<=i/2){
if(d%i==0)ok=0;
d=d+1;
}
if(ok==1)cout<<" "<<i;
}
return 0;
Alte întrebări interesante
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă