Меню сайта

Задача №11

Дан текст. Удалить — в нем повторяющиеся символы.


Program mn_11-

var

s:string-

m:set of char-

i:integer-

begin

writeln(‘Введите текст’)-

readln(s)-

i:=1-

repeat

if s[i] in m then

delete(s,i,1)

else

begin

include(m,s[i])-

inc(i)

end

until

i&gt-length(s)-

writeln(‘Результат:’)-

writeln(s)-

readln

end.

Категория: Множества | Дата: 26.12.12

Меню раздела
Блок