Delphi-Quellcode:
procedure TForm1.BRechnenClick(Sender: TObject);
var n, teiler, zahl :integer;
wurzel :real;
prim :boolean;
begin
ListBox1.clear;
n:=strtoint(Edit1.text);
ListBox1.items.Add('2');
zahl:=3;
while zahl<=n do
begin
prim:=true;
teiler:=2;
wurzel:=sqrt(zahl);
while (teiler <= wurzel) and (prim) do
begin
if zahl mod teiler=0 then prim := false;
teiler:=teiler + 1 ;
end;
if prim = True then
listbox1.Items.Add (inttostr(zahl));
zahl:=zahl+1;
end;
end;
end.
-> für die, dies noch interessiert