Здравствуйте, не могу понять в чем ошибка-нужно чтобы при вводе кода символа выдало строку из пред идущего символа,этого Символа и следующего символ Program theworld var a : char ; kod :integer ;b:string; begi writeln ('символ и строка') write ('введите исходный код') readln(a); kod:= ord (a) b:=chr(kod-1)+a+chr(kod+1) writeln('строка',b) end.
здравствуйте. Ошибка в том, что вы считываете символ. А вам нужно код.
readln(kod);
b=chr (kod-1)+chr(kod)+chr(kod+1);
writeln(b);
либо при выполнении вашей программы при вводе данных вводить символ, но тогда условие самой задачи нарушится