Информатика: Дано слово , удалить из него все повторяющиеся буквы

Pixelia

21.02.2023 12:25

Информатика

Есть ответ 👍

Дано слово , удалить из него все повторяющиеся буквы

112

263

Посмотреть ответы 2

Ответы на вопрос:

NormerSE

Информатика

4,4(76 оценок)

// 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.