Предмет: Информатика,
автор: viktoria1403
(в паскале помогите написать программу) Оставьте в строке только первые вхождения букв, все повторяющиеся
буквы удалите. Например, исходное слово «кроссворд» (или «missisipi»),
результат «кросвд» (или «misp»).
Ответы
Автор ответа:
0
var
i,x:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do
begin
x:=pos(s[i],s);
if x<>i then delete(s,i,1);
end;
writeln(s)
end.
i,x:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do
begin
x:=pos(s[i],s);
if x<>i then delete(s,i,1);
end;
writeln(s)
end.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: lysyak07
Предмет: Математика,
автор: alexandserg07
Предмет: Биология,
автор: Аноним
Предмет: Алгебра,
автор: irinushka2012