Дано слово , удалить из него все повторяющиеся буквы
Дано слово , удалить из него все повторяющиеся буквы
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
ReadlnString('Слово:').Distinct.Println('')
end.
Тестовое решение:
Слово: балалайка
балйк
И, на всякий случай, вариант "как в школе учат":
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
var
w,r:string;
i:integer;
begin
Write('Слово: '); Readln(w);
r:=w[1];
for i:=2 to Length(w) do
if Pos(w[i],r)=0 then r:=r+w[i];
Writeln(r)
end.
Не нашли ответ?
Похожие вопросы