Напечатать все буквы входящие в текст по одному разу - 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
СДЕЛАЙТЕ РЕПОСТ