Вывести все буквы которые есть во всех словах - Pascal ABC

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

Решите пожалуйста задачу на строки. Если можно можете еще объяснить что сделали. Вывести все буквы которые есть во всех словах. К примеру вводим слова: папа, мама Выводить должен: п,а,м

Код к задаче: «Вывести все буквы которые есть во всех словах - Pascal ABC»

textual
var s, b: string;
    c: char;
begin
  writeln('Введите строку:'); {вводим строку}
  readln(s);
  b := ''; {пока строка букв пустая}
  while length(s) > 0 do {потрошим строку}
    begin
      c := s[1]; {запоминаем первый символ}
      while pos(c, s) > 0 do delete(s, pos(c, s), 1); {и удаляем все символы, равные первому}
      if c in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё'] then b := b + c + ',' {если символ - буква, добавляем букву и запятую к строке букв}
    end;
  if length(b) > 0 {если длина строки букв больше 0}
    then begin
      delete(b, length(b), 1); {убираем последнюю запятую}
      writeln('Буквы, которые содержатся в тексте: ', b) {печатаем результат}
    end
    else writeln('Текст не содержит букв') {иначе выдаём сообщение, что букв нет}
end.

10   голосов, оценка 4.300 из 5


СОХРАНИТЬ ССЫЛКУ