Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, т.е. В слове должны остаться только разные буквы. Программа Паскаль
Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, т.е. В слове должны остаться только разные буквы. Программа Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
Не нашли ответ?
Похожие вопросы