Задан текст. Изъять из текста символы, заданные пользователем

@acc_1996 · Регистрация: 19.11.2014

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

Задан текст. Изъять из текста символы, заданные пользователем.
Спасибо за Внимание !

@APALoff · 20.11.2014, 10:13

Pascal
1
2
3
4
5
Readln(St);
Readln(S);
For i:=Length(St) downto 1 do
  If St[i] in St then Delete(St,i,1);
Writeln(St);

@volvo · 20.11.2014, 10:27

APALoff, не пойдет.
У тебя либо St - строка, значит нельзя использовать in St, либо это множество, значит нельзя использовать ReadLn(st)

@APALoff · 20.11.2014, 10:37

обе строки... тогда так:

Pascal
1
2
3
4
5
Readln(St);
Readln(S);
For i:=Length(St) downto 1 do
  If Pos(St[i],S)<>0 then Delete(St,Pos(St[i],S),1);
Writeln(St);

Добавлено через 1 минуту
Да, в первом варианте у меня очепятка:
вместо

Pascal
1
If St[i] in St then Delete(St,i,1);

надо было

Pascal
1
If St[i] in S then Delete(St,i,1);

@volvo · 20.11.2014, 10:42

in S, если

Сообщение от APALoff

обе строки...

- точно так же не пойдет...

@APALoff · 20.11.2014, 10:49

опять тороплюсь очепятываюсь

Pascal
1
2
3
4
5
Readln(St);
Readln(S);
For i:=Length(St) downto 1 do
  If Pos(St[i],S)<>0 then Delete(St,i,1);
Writeln(St);

Добавлено через 1 минуту

Сообщение от UI

- точно так же не пойдет...

я с этим согласен еще с твоего первого поста - просто пытался донести смысл )

Добавлено через 1 минуту
сейчас уже проверил - вроде работает последний вариант с Pos

Добавлено через 1 минуту
А теперь давай решение через .NET =)

@acc_1996 · 20.11.2014, 20:41 **[ТС]**

Спасиб)

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@acc_1996 0 / 0 / 0 Регистрация: 19.11.2014 Сообщений: 5

	Задан текст. Изъять из текста символы, заданные пользователем 19.11.2014, 21:42. Показов 529. Ответов 6 Метки нет (Все метки) Задан текст. Изъять из текста символы, заданные пользователем. Спасибо за Внимание ! 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	20.11.2014, 10:27
	APALoff, не пойдет. У тебя либо St - строка, значит нельзя использовать in St, либо это множество, значит нельзя использовать ReadLn(st) 1

@acc_1996 0 / 0 / 0 Регистрация: 19.11.2014 Сообщений: 5
	20.11.2014, 20:41 [ТС]
	Спасиб) 0