Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 10.07.2013
Сообщений: 12
1

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

12.07.2013, 17:44. Показов 904. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
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)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.07.2013, 17:44
Ответы с готовыми решениями:

Строка: Если слово нечетной длины, то удалить его среднюю букву
30. Дано слово. Если оно нечетной длины, то удалить его среднюю букву.

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

Строки. Если слово нечетной длины, то удалить его последнюю букву
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 пропис-ных...

Если слово в массиве нечётной длины, то удалить из него первую букву
Дан массив из 6-ти слов. Длинна каждого слова не более 10-ти букв. Если слово в массиве нечётной...

2
94 / 94 / 32
Регистрация: 29.06.2013
Сообщений: 252
12.07.2013, 17:52 2
Pascal
1
if Length(s) mod 2 = 1 then
попробуй так:
Pascal
1
if Odd(Length(s)) then...
Добавлено через 3 минуты
Хотя ошибка не только в этом.
Тут нужно переписать сначала...
1
0 / 0 / 0
Регистрация: 10.07.2013
Сообщений: 12
12.07.2013, 20:07  [ТС] 3
как надо? скажите пож-та всю программу

Добавлено через 23 минуты
подскажи пожалуйста(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.07.2013, 20:07

Из каждого слова нечетной длины удалить среднюю букву
Замечания. 1. Следует использовать подпрограммы разбиения предложения на слова. 2. Задания...

Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае - две буквы.
Помогите пожалуйста с программным кодом: Дано слово. Если его длина нечётная, то удалить среднюю...

Удалить центральную букву последнего слова, если оно нечетной длины
помогите понять условие задачи. {дана строка, состоящая из слов, между словами несколько пробелов,...

Преобразовать данную строку, удалив из слов нечетной длины среднюю букву
Преобразовать данную строку, удалив из слов нечетной длины среднюю букву.

Напечатать все слова, но если слово нечетной длины, то удалить его среднюю букву
Дана последовательность, которая содержит от 1 до 30 слов, в каждом из который от 1 до 5 строчных ...

Если слова нечётной длинны, то удалить его среднюю букву
Группы символов, разделённые пробелами, и которые не имеют пробелы в середине себя, будем называть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru