Question

Составьте программу, которая :а) Определяет коды двух введённых с клавиатуры символов;б)Выполняет операцию сцепления трёх введённых с клавиатуры символов;на Pascal

Answer 1

A)
var
 ch1,ch2:char;
begin
 readln(ch1,ch2);
 writeln(ch1,'=',integer(ch1));
 writeln(ch2,'=',integer(ch2));
end.
б)
var
 a,b,c:char;
begin
 readln(a,b,c);
 writeln('Результат сцепления:',a+b+c);
end.