Question

Выполните на компьютере программы из примеров 1 и 2 данного параграфа. Протестируйте их работу.

Answer 1

program Example1;
begin   writeln('Symbol: ', 'A');   writeln('Code: ', Ord('A'));   writeln('Symbol: ', 'B');   writeln('Code: ', Ord('B'));   writeln('Symbol: ', 'C');   writeln('Code: ', Ord('C')); end.
program Example2;
var   lowercaseChar, uppercaseChar: char;
begin   lowercaseChar := 'a';   uppercaseChar := Chr(Ord(lowercaseChar) - Ord('a') + Ord('A'));   writeln('Original Char: ', lowercaseChar);   writeln('Uppercase Char: ', uppercaseChar); end.