Код программы
var
s, ns: string;
i: integer;
begin
readln(s);
for i:=1 to length(s)-1 do if s[i]= then ns:=ns+s[i-1];
if s[length(s)]<> then ns:=ns+s[length(s)];
write(ns);
end.
Возникли вопросы? Пиши в комментарии.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.