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

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

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.

Похожие ответы
  1. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово; все согласные буквы, которые не входят ни в одно слово. Помогите с программой, пожалуйста.

  1. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз. Помогите доделать задачу. С выводом проблема вышла. Например слово "mama." выводит то что встречается буква "а", "m". например слово mahin. должен вывести, что буквы не встречаются. Вот у меня с этим вышла проблема. Заранее большое спасибо!!! Вот собственно задача:

  1. Дан текст(любой) из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз.

  1. Помогите решить след задачу: Дан текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские гласные буквы, входящие в этот текст. Использовать множества.

  1. Вводится строка.Напечатать все гласные буквы входящие в текст.И посчитать сколько гласных букв напечатано.

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

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

  1. Помогите пожалуйста Напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа N (число выбрать произвольно).

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

  1. Напечатать в алфавитном порядке все различные строчные буквы, входящие в заданный текст из 100 литер. помогите исправить ошибки в тексе


Нашли ошибку?
Развитие проекта
Яндекс.Метрика