Напечатать все буквы входящие в текст по одному разу - Pascal

Формулировка задачи:

Прошу помоч. Очень надо. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы входящие в текст по одному разу.

Код к задаче: «Напечатать все буквы входящие в текст по одному разу - Pascal»

textual
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


СДЕЛАЙТЕ РЕПОСТ