Wieder mal Kombinationen

[mentaltec]

ungefähr so

Code:

var
  ziffer : Array[0..8] of char o.ä. = ('0','0','0','0','0','0','0','0','0');  // bei char #30..#34 kannste gleich writln(leftstr(Ziffer[0])) glaub ich

proc incThis(stelle : Int);
begin
  inc(ziffer[stelle]);
  if (Ziffer[stelle] = '5') then
  begin  //uebertrag
    incThis(succ(stelle));
    Ziffer[stelle]:='0';
  end;
end;

begin
while ziffer[8] = '0' do  // Ziffer[8] stellt hier das Carry-bit dar
  incThis(0);   // inc lowest digit
end;