1. Составить программу, которая определяет сумму кодов двух введенных с клавиатуры символов.
Решение:
program Pl;
var a, b:char;
begin
write('Введите 2 символа ');
Readln(a, b);
writeln('Cумма кодов=', ord(a)+ord(b));
end.
2. Дан символ. Верно ли, что код символа четный?
Решение:
program Pl;
var a:char;
begin
write('Введите символ ');