Răspunsuri

Cel mai inteligent răspuns!
2014-02-08T22:30:08+02:00
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.
1 5 1