fork(1) download
  1. program convert;
  2. {$mode objfpc}
  3.  
  4. function ToAnySystem(Liczba:DWord;System:Byte):String;
  5. const Digits:String='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  6. begin
  7. Result:='';
  8. repeat
  9. Result:=Digits[(Liczba mod System)+1]+Result;
  10. Liczba:=Liczba div System;
  11. until Liczba=0;
  12. end;
  13.  
  14. var Liczba:DWord;
  15. begin
  16. ReadLn(Liczba);
  17. WriteLn(ToAnySystem(Liczba,36));
  18. WriteLn(ToAnySystem(Liczba,16));
  19. WriteLn(ToAnySystem(Liczba,10));
  20. WriteLn(ToAnySystem(Liczba,8));
  21. WriteLn(ToAnySystem(Liczba,2));
  22. end.
Success #stdin #stdout 0.02s 212KB
stdin
Standard input is empty
stdout
0
0
0
0
0