Удаление первой и последней встретившейся буквы

04.11.2014, 10:24. Показов 676. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Напишите программу, проверяющую является ли частью данного слова слово СОК. Если да то удалите это словосочетание из исходного слово, в противном случае удалите первую и последнюю буквы о

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project1;
 
{$APPTYPE CONSOLE}
uses
  System.SysUtils;
 
var s,s1,s2:string;
i,k:integer;
begin
writeln('введите слово:',s);
readln(s);
for i := 1 to length(s)+1 do
 begin
   if copy(s,i,3)='sok' then
    delete(s,i,3)
    else
  if copy(s,i,1)='o' then
   delete(s,i,1);
 
 
 end;
 writeln('новое слово:',s);
 readln;
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

04.11.2014, 10:24

Ответы с готовыми решениями:

Скопировать из текста фрагмент от первой встретившейся буквы 'а' до первой встретившейся буквы 'я' .
Скопировать из текста фрагмент от первой встретившейся буквы 'а' до первой встретившейся буквы 'я' (включительно)

Удалить текст в файле, начиная с первой встретившейся буквы ‘М’ до третьей по счету буквы ‘М’
Удалить текст, содержащийся в обрабатываемом файле, начиная с первой встретившейся буквы ‘М’ до третьей по счету буквы ‘М’. Вывести текст...

Удаление первой и последней буквы слова
Дан текст с n слов 1)уничтожить первую букву в каждом слове 2)уничтожить последнюю букву в каждом слове Заранее спасибо

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

04.11.2014, 10:24

Помогаю со студенческими работами здесь

Выделить подстроку длиной 5 символов, которая начинаеться с первой встретившейся в строке буквы "f"
из заданой строки выделить подстроку длинной 5 символов (либо до конца строки, если осталось меньше), которая начинаеться с первой...

Поиск первой/последней свободной буквы диска
Ну вот опять... было достаточно не пописать буквально пару месяцев и всё забылось. Задача такая: нужно через subst в начале батника...

Перестановка местами первой и последней буквы в словах
Нужен кусок , который выполняет это действие для Delphi 7 Буду очень признателен если будут еще комментарии что куда :)

Найти порядковый номер первой / последней буквы е в предложении
Дано предложение, в котором имеются несколько букв е. Найти: •порядковый номер первой из них; •порядковый номер последней из них.

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

Наверх