SHARE
TWEET

Untitled

a guest Sep 15th, 2019 81 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top