Дано слово, если оно симметричное и нечетной длины, заменить в нем средний символ на “_”

@SAM · Регистрация: 10.04.2012

Дано слово, если оно симметричное и нечетной длины, заменить в нем средний символ на “_”, если нет – оставить без изменения.

@Puporev · 10.04.2012, 19:44

Pascal

var s,s1:string;
    n,i:integer;
begin
writeln('Введите слово:');
read(s);
n:=length(s);
s1:='';
for i:=n downto 1 do
s1:=s1+s[i];
if (s1=s)and(n mod 2=1) then
s[n div 2+1]:='_';
write(s);
end.

@SAM · 10.04.2012, 20:12 **[ТС]**

спасибо большое!

@SAM 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 7
		1
	Дано слово, если оно симметричное и нечетной длины, заменить в нем средний символ на “_” 10.04.2012, 19:37. Показов 1442. Ответов 2 Метки нет (Все метки) Дано слово, если оно симметричное и нечетной длины, заменить в нем средний символ на “_”, если нет – оставить без изменения. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@SAM 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 7
	10.04.2012, 20:12 [ТС]	3
	спасибо большое! 0

Опции темы

Дано слово, если оно симметричное и нечетной длины, заменить в нем средний символ на “_”

Решение