Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 21.12.2017
Сообщений: 13
1

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

20.01.2018, 14:57. Показов 937. Ответов 1
Метки нет (Все метки)

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

P.S. желательно через процедуры либо функции
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2018, 14:57
Ответы с готовыми решениями:

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

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

Работа со строками. Дано слово. Удалить из него букву О, если такая есть. Удалить из него последнюю букву Л, если такая есть
Привет! Нужна помощь по задачке по паскалю. Пожалуйста помогите! Задание: Дано слово. Удалить...

Если слово имеет нечётную длину, удалить в нём среднюю букву
Сформировать по строке a$ новую строку по правилу: если слово имеет нечётную длину, удалить в нём...

1
1746 / 1339 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
20.01.2018, 16:01 2
Лучший ответ Сообщение было отмечено ivana23 как решение

Решение

Pascal
1
2
3
begin
  writeln(ReadlnString.ToWords.Select(w -> odd(w.Length) ? w.Take(w.Length - 1).JoinIntoString : w).JoinIntoString);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2018, 16:01

Если слово имеет четную длину, удалить в нем вторую букву
Сформировать по строке а новую строку по правилу:если слово имеет четную длину,удалить в нем вторую...

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

Если слово нечетной длины то удалить его среднюю букву
Var s : string; Begin ReadLn(s); if Length(s) mod 2 = 1 then delete(s , 1 +...

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.