PI

[-Ptype-]

Aja mein lehrer ist halt nicht der beste xD aber trotzdem war das jetzt mit den Potenzen nicht so schwer

Delphi-Quellcode:

begin
               n := 1; y:= zahl;
             repeat
               n := n+1;
               zahl := zahl * y;
             until n = zahl2;
             end;