Commit | Line | Data |
---|---|---|
1 | PROGRAM CONVERSION(INPUT,OUTPUT); | |
2 | ||
3 | CONST B=16; | |
4 | VAR X: INTEGER; | |
5 | ||
6 | PROCEDURE Q(X: INTEGER); | |
7 | BEGIN | |
8 | IF X<10 THEN WRITE(X:1) | |
9 | ELSE CASE X OF | |
10 | 10: WRITE("A"); | |
11 | 11: WRITE("B"); | |
12 | 12: WRITE("C"); | |
13 | 13: WRITE("D"); | |
14 | 14: WRITE("E"); | |
15 | 15: WRITE("F"); | |
16 | END | |
17 | END; | |
18 | ||
19 | PROCEDURE P(X: INTEGER); | |
20 | BEGIN | |
21 | IF X>=B THEN P(X DIV B); | |
22 | Q(X MOD B) | |
23 | END; | |
24 | ||
25 | BEGIN | |
26 | READ(X); | |
27 | WRITE(X,"="); | |
28 | P(X) | |
29 | END. |