Hexadecimal sayı dahil
=========================================================
Uses Crt;
Label A1;
Var x,y,v:Longint;
z,i,k:Longint;
A,C,F:Array[-2..200] of Longint;
Begin
ClrScr;
Write('Dntrlecek Sayy Giriniz: ');Readln(x);
Write('Dntrlecek Taban: ');Readln
;
z:=y;
A1:
a[k]:=z;
z:=z*y;
k:=k+1;
if z<=x then goto A1;
f[k-1]:=x;
For i:=(k-1) downto 0 do
Begin
C:=F div A;
F[i-1]:=F mod A;
End;
v:=f[i-1] div 1;
For i:=(k-1) downto 0 do
Begin
if c=10 Then Write('A')
Else if c=11 Then Write('B')
Else if c=12 Then Write('C')
Else if c=13 Then Write('D')
Else if c=14 Then Write('E')
Else if c=15 Then Write('F')
Else Write(c);
End;
Write(v);
Readln
End.
=========================================================
Uses Crt;
Label A1;
Var x,y,v:Longint;
z,i,k:Longint;
A,C,F:Array[-2..200] of Longint;
Begin
ClrScr;
Write('Dntrlecek Sayy Giriniz: ');Readln(x);
Write('Dntrlecek Taban: ');Readln
;z:=y;
A1:
a[k]:=z;
z:=z*y;
k:=k+1;
if z<=x then goto A1;
f[k-1]:=x;
For i:=(k-1) downto 0 do
Begin
C:=F div A;
F[i-1]:=F mod A;
End;
v:=f[i-1] div 1;
For i:=(k-1) downto 0 do
Begin
if c=10 Then Write('A')
Else if c=11 Then Write('B')
Else if c=12 Then Write('C')
Else if c=13 Then Write('D')
Else if c=14 Then Write('E')
Else if c=15 Then Write('F')
Else Write(c);
End;
Write(v);
Readln
End.
