|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.11.2008, 11:51 | #1 |
Пользователь
Регистрация: 30.09.2008
Сообщений: 10
|
ЗАДАНИЕ С ТЕКСТОМ
Из заданного текста предложения выбрать и напечатать только те символы,которые встречаются в нём только один раз (в том порядке,в котором они встречаются в тексте)????
|
10.11.2008, 13:46 | #2 |
Форумчанин
Регистрация: 12.09.2008
Сообщений: 239
|
var s,sp:string;
c:char; begin readln(s); while length(s)>0 do begin c:=s[1]; delete(s,1,1); if pos(c,s)=0 then sp:=sp+c else while pos(c,s)>0 do delete(s,pos(c,s),1); end; writeln(sp); readln; end.
Надо бы избавиться от привычки ставить многоточие.....
|
11.11.2008, 08:20 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ну, тогда я бы так предложил, обойтись без удалений,
да и вообще проще: Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстом.[C] | DropYourWeapon | Общие вопросы C/C++ | 3 | 15.10.2008 21:55 |
Работа с текстом | boostman | Общие вопросы Delphi | 5 | 14.09.2008 12:57 |
Помогите с текстом | Кронос | Общие вопросы Delphi | 2 | 07.05.2008 22:18 |
работа с текстом | pupil | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 15.03.2008 14:00 |
Проблема с текстом! | Starscream | Общие вопросы Delphi | 2 | 22.02.2008 17:55 |