Schleifen

[netscanner]

äh wrong coe :

Delphi-Quellcode:

var a,i,c :integer ;
begin
a := -1; //richtung
i := 0; //zähler
//c Ausgabe
for i := 1 to 80 do
if i mod 10 = 0 then a := -1
else  a := 1;
c := c * a ;
memo1.seltext := (inttostr (c));

end;

end.