Работа 3.8 Упр.13 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 13. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-8/13 98

Подробный ответ

Используем множество символов mn, в которое будем добавлять каждый символ строки. Множество автоматически хранит только различные элементы, поэтому после обхода строки в нём останутся все разные символы.

Затем переберём коды символов от $$32$$ до $$255$$ и проверим, входит ли символ chr(i) в множество. Если входит, выводим его и увеличиваем счётчик k.

var s:string;
i,k:byte;
mn:set of char;
begin
  write(‘Введите строку: ‘);
  readln(s);
  k:=0; mn:=[];
  for i:=1 to Length(s) do
    mn:=mn+[s[i]];
  for i:=32 to 255 do
    if chr(i) in mn then
    begin
      write(chr(i):2);
      inc(k);
    end;
  writeln;
  writeln(‘Всего различных символов в строке=’,k);
end.