Дано слово , удалить из него все повторяющиеся буквы
// 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
