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