Пользователь вводит символ, и получает его ASCII код.
Решение:
|
1
2 3 4 5 6 7 8 9 10 |
program characters_and_strings_4;
uses crt; var c: char; begin clrscr; write(‘Символ > ‘); read(c); write(‘ASCII код символа ‘, c, ‘: ‘, ord(c)); readkey; end. |