Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменений, второе и последующее удалить

@MaCЯHЯ · Регистрация: 31.10.2012

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

Вот что из себя представляет задание:
Дана символьная строка.Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменений, второе и последующее удалить.

@orange_rush · 28.11.2012, 23:03

если ввести: мама мыла раму, то получается ма ыл ру -)))

Pascal

var
charset: set of 'а'..'я';
s: string;
i: byte;
begin
        write('vvedite stroku: ');
        readln(s);
        s:=s+'.';
        i:=1;
        repeat
             if s[i] in charset then begin
                while s[i] in charset do delete(s,i,1);
             end else charset:=charset+[s[i]];
 
             Inc(i);
        until s[i]='.';
 
        delete(s,length(s),1); 
        write(s);
        readln;
end.

@MaCЯHЯ 0 / 0 / 0 Регистрация: 31.10.2012 Сообщений: 4
		1
	Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменений, второе и последующее удалить 28.11.2012, 18:28. Показов 1422. Ответов 1 Метки нет (Все метки) Вот что из себя представляет задание: Дана символьная строка.Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменений, второе и последующее удалить. 0

Опции темы

Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменений, второе и последующее удалить

Решение