Vladaursu1998ask
a fost răspuns

sa se alcatuiasca un program care ne-ar afisa toate numerele prime pina la N(N<10000, se citeste de la tastatura).

Răspuns :

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.

Ask Alte intrebari