PMG/Kurs 1214/eigene Übungen/Alexander

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Hallo

<run id="51b73c16d9abe">procedure primfeld(a,b:integer);
var i:integer;
var istprim:boolean;
begin
istprim:=true;
while(a<>b+1) do
   begin
istprim:=true;
      for i:=2 to sqrt(a) do
      begin
        if(a mod(i) = 0) and (a<>i) then istprim:=false;
      end;
      if(istprim = true) then writeln(a);
      a:=a+1;	
   end;
end;</run>