Если слово нечетной длины то удалить его среднюю букву

@Крис123 · Регистрация: 10.07.2013

Pascal

Var s : string;
Begin
    ReadLn(s);
    if Length(s) mod 2 = 1 then
        delete(s , 1 + length(s) div 2 , 1);
    WriteLn(s);
end.

если слово нечетной длины то удалить его среднюю букву.
удаляет только в первом, а нужно во всех словах( слов не больше 5, букв в слове не больше 5)

@Turbal · 12.07.2013, 17:52

Pascal

1	if Length(s) mod 2 = 1 then

попробуй так:

Pascal

1	if Odd(Length(s)) then...

Добавлено через 3 минуты
Хотя ошибка не только в этом.
Тут нужно переписать сначала...

@Крис123 · 12.07.2013, 20:07 **[ТС]**

как надо? скажите пож-та всю программу

Добавлено через 23 минуты
подскажи пожалуйста(

@Крис123 0 / 0 / 0 Регистрация: 10.07.2013 Сообщений: 12
	12.07.2013, 20:07 [ТС]	3
	как надо? скажите пож-та всю программу Добавлено через 23 минуты подскажи пожалуйста( 0