Viết chương trình cho phép đổi một số từ cơ số 10 sang cơ số bất kỳ.

Program Doi_co_so; Var n,s: longint; Function D10_CS(n:longint;s:byte):string; Var CS: array[0..100] of char; i: integer; ch:Char; Tam:string; Begin {Khoi tao cac chu so 0 den 9} i:=0; ch:='0'; while i<=9 do Begin CS[i]:=Ch; inc(i); inc(ch); End; {Khoi tao cac chu so A den Z} i:=10; ch:='A'; While ch<'Z' do Begin CS[i]:=ch; inc(i); inc(ch); End; tam:=''; While n<>0 do Begin tam:= CS[n mod s]+ Tam; n:=n div s; End; D10_CS:=Tam; End; Begin Write('Nhap n:');Readln(n); Write('Doi sang co so: ');Readln(s); Write(D10_CS(n,s)); Readln End.