Algorithmen mit Wiederholungen

Weitere Programme

Ausgabe von Primzahlen  

Struktogramm

program primzahlen_sieb;

uses crt;

var teiler, k, n, zahl  :  integer;
    Primzahl   :  boolean;

begin
     clrscr;
     gotoxy(20,3); textcolor(lightred); write('Primzahlen');
     gotoxy(10,6);textcolor(white);write(' Wie viele Primzahlen ?  n<2  ');
     readln(n);  writeln;

     zahl := 2; k := 0;

     repeat

     Primzahl := true;
     for teiler := 2 to (zahl - 1) do
         if (zahl mod teiler) = 0 then
         primzahl := false;

     if primzahl then begin write (zahl:5); inc(k); end;
     inc(zahl);

     until k = n;

     readln;
end.