Guest User

Untitled

a guest
Sep 15th, 2019
84
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var input, base, i:integer;
  2. output:string;
  3. alphabet:array [0..19] of char;
  4. begin
  5. for i:=0 to 9 do
  6. begin
  7. alphabet[i] := chr(48+i);
  8. alphabet[i+10] := chr(65+i);
  9. end;
  10. output:= '';
  11. base := 20;
  12. readln(input);
  13. while input > 0 do
  14. begin
  15. output := alphabet[input mod base] + output;
  16. input := input div base;
  17. end;
  18. writeln(output);
  19. end.
RAW Paste Data