Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 13.02.2015
Сообщений: 17

Удалить из слова третью букву

13.02.2015, 17:46. Показов 2300. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано слово:
а) удалить из него третью букву;
б) удалить из него k-ю букву.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.02.2015, 17:46
Ответы с готовыми решениями:

Удалить в тексте третью букву каждого слова
Дан текст. Удалить в нём третью букву каждого слова; помогите че-то я не могу разобраться вот сделал тут: var s:...

Строки и множества. Удалить из слова каждую третью букву
Напишите программу, удаляющую из слова каждую третью букву

Дано слово, удалить из него третью и k-ю букву
Дано слово: а) удалить из него третью букву; б) удалить из него k-ю букву.

6
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
13.02.2015, 18:44
Дано слово, удалить из него третью и k-ю букву
0
0 / 0 / 0
Регистрация: 13.02.2015
Сообщений: 17
13.02.2015, 18:56  [ТС]
Я уже это видела, но у меня не получается так, как там написано. Вот я создала тему заново.
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
13.02.2015, 19:04
Не получается?
Так вы и не делали ничего. И не собирались.

Добавлено через 3 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s:string;
  k:integer;
begin
  readln(s);
  delete(s,3,1);
  writeln(s);
  write('Введите номер удаляемой буквы: ');  readln(k);
  delete(s,k,1);
  writeln(s);
end.
0
0 / 0 / 0
Регистрация: 13.02.2015
Сообщений: 17
13.02.2015, 19:13  [ТС]
Неправда. Зачем грубить? Если моя программа не работает, это не значит, что я не пробовала ее сделать.
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
13.02.2015, 19:38
Извините. Ваши попытки представлены не были, отчего и был сделан такой вывод.
0
0 / 0 / 0
Регистрация: 13.02.2015
Сообщений: 17
13.02.2015, 20:02  [ТС]
Ничего страшного. Просто я еще не освоилась здесь, именно поэтому я не смогла предоставить мою получившуюся программу.

Добавлено через 2 минуты
Спасибо большое за программу.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.02.2015, 20:02
Помогаю со студенческими работами здесь

Дано слово если длина слова нечетная то удалить среднюю букву а если четное то удалить две средне
Дано слово если длина слова нечетная то удалить среднюю букву а если четное то удалить две среднее ))как сделать попрошу попроще...

Удалить из строки все слова начинающиеся на букву «о»
помогите составить блок схему. не понимаю их я! Дана строка текста. Слова в тексте друг от друга отделяются одним пробелом. Удалить из...

Дана последовательность,удалить из слова первую букву
Пожалуйста, решите кто-нибудь. Буду благодарна за помощь. Заранее спасибо. Дана последовательность, содержащая от 2 до 30 слов, в...

Удалить из текста слова, которые начинаются на первую букву
Удалить из текста слова, которые начинаются на первую букву ______________________ помогите уже 2 дня с ней сижу(

Строки. Из каждого слова текста удалить последнюю букву
с каждого слова текста удалить последнюю букву


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru