Mal einfach ausgedrückt, nach jeder Generation verdoppelt sich die Anzahl der Baktierchen -> deswegen sind Bakterien auch Tiere
Warum dann nicht einfach auch so vorgehen ??
Delphi-Quellcode:
var
Anzahl: Extended;
begin
Anzahl := 1;
for I := 1 to N -1 do
begin
... Print
Anzahl := 2 * Anzahl;
if Anzahl <> 1 shl I then ;
end;
end;
fertig
Gruß Hagen