sa se alcatuiasca un program care ne-ar afisa toate numerele prime pina la N(N<10000, se citeste de la tastatura).
IulianAdrian:
...
Răspunsuri la întrebare
Răspuns de
1
functia prim (n):boolean;
d:longint;
x:byte;
d:=2; x:=0;
while d<sqrt(n) do
begin
if n mod d = 0 then x:=x+1;
d:=d+1;
end;
if x=0 then prim:= true
else prim:= false;
Programul principal:
i:longint;
for i:=1 to n do
if prim(i) then write(i, ' ');
Cam atat.
d:longint;
x:byte;
d:=2; x:=0;
while d<sqrt(n) do
begin
if n mod d = 0 then x:=x+1;
d:=d+1;
end;
if x=0 then prim:= true
else prim:= false;
Programul principal:
i:longint;
for i:=1 to n do
if prim(i) then write(i, ' ');
Cam atat.
Alte întrebări interesante
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Informatică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Biologie,
9 ani în urmă
Limba română,
9 ani în urmă