Alexander

Aus ProgrammingWiki

< PMG < Kurs 1214 < eigene Übungen

Archivierte Version vom 2013-06-11T15:17:28+00:00. Aktuelle Version

<code id="51b73f797e39e">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) or (a=1) then istprim:=false;
      end;
      if(istprim = true) and (a<>1) then writeln(a);
      a:=a+1;	
   end;
end;

primfeld(1,20);

Seite
Quelltext
Versionen/Autoren

Konto registrieren
Anmelden

Navigation

Startseite
Letzte Änderungen
Alle Seiten
Einführungskurs
Hilfe
Dateien

Suche

Werkzeuge

Links auf diese Seite
Spezialseiten

Zuletzt geändert: 2013-06-11T17:26:14+00:00 · ProgrammingWiki · PHP & JSON

Datenschutz · Impressum