Скачиваний:
287
Добавлен:
04.03.2014
Размер:
627 б
Скачать
Задача:
Оставить в строке только один экземпляр каждого встречающегося символа.

Описание переменных:
s1 – исходная строка;
s2 – конечная строка;
s3 – переменная для очередного символа.

Алгоритм решения задачи:
Копировать в s3 очередной символ из s1.
Если s3 не содержится в s2, то добавить его туда.
Программа на языке Паскаль:
var
s1,s2,s3: string;
i: byte;
begin
write('String: ');
readln(s1);
s2 := '';
for i:=1 to length(s1) do begin
s3 := copy(s1,i,1);
if pos(s3,s2) = 0 then
s2 := s2 + s3
end;
writeln('String: ',s2);
readln
end.
Соседние файлы в папке Строки в комбинации с другими типами задач