Напечатать все буквы входящие в текст по одному разу - Pascal
Формулировка задачи:
Прошу помоч. Очень надо.
Дан текст из строчных латинских букв, за которыми следует точка.
Напечатать все буквы входящие в текст по одному разу.
Код к задаче: «Напечатать все буквы входящие в текст по одному разу - Pascal»
var c:char; s,sd:set of char; begin s:=[ ]; {инициализация множества входных символов} sd:=[ ]; {инициализация множества повторяющихся символов} repeat read(c); if c in s then sd:=sd+[c] {накопление множества повторяющихся символов} else s:=s+[c]; {накопление множества всех символов} until c='.'; s:=s-sd-['.']; {получение множества неповторяющихся символов} for c:=#33 to #255 do if (c in s) then write(c:3); end.

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
8 голосов, оценка 3.875 из 5
Похожие ответы