repeat potenz: = basis; while potenz( = zahl do potenz: = potenz ★ basis; write(zahl,' = {'); repeat potenz: = potenz div basis; write(zahi div potenz:1); zahl: = zahl mod potenz untii potenz = 1; writein(') zur Basis ',basis:1); writeln; writein; write('Neue Basis (j/n): j' ,chr(157)|; repeat readin(antw) untii antw in l'j' ,'n'|; writein; if antw = 'j' then begin write{'Neue Basis:'); repeat readin(basis) untii basis in [2..9|; writein end; write('NeueZahi (Ende--) 0):0' ,chr(157)); readln(zahi); page untii zahl = 0 COMPUTERGRAFIK
RkJQdWJsaXNoZXIy MjQ4MjI2