Найти буквы, входящие в строку один раз

@nserg · Регистрация: 21.12.2010

Студворк — интернет-сервис помощи студентам

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

@Mawrat · 03.01.2011, 19:23

Просто, например, решается через массив с символьной индексацией. Множество здесь тоже используется.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const
  D = ['a'..'z'];
var
  S : String;
  Arr : array['a'..'z'] of Integer;
  Ch : Char;
  i : Integer;
begin
  //Ввод строки.
  Writeln('Задайте строку:');
  Readln(S);
  //Обнуление массива.
  for Ch := 'a' to 'z' do Arr[Ch] := 0;
  //Подсчёт букв.
  for i := 1 to Length(S) do
    if S[i] in D then Inc(Arr[ S[i] ])
  ;
  //Распечатка результатов.
  Writeln('Перечень строчных букв латиницы, встретившихся ровно 1 раз:');
  i := 0;
  for Ch := 'a' to 'z' do begin
    if Arr[Ch] = 1 then begin
      if i > 0 then Write(', ');
      Write(Ch);
      Inc(i);
    end;
  end;
  Writeln;
 
  Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@nserg 0 / 0 / 0 Регистрация: 21.12.2010 Сообщений: 4

	Найти буквы, входящие в строку один раз 03.01.2011, 18:44. Показов 1520. Ответов 1 Метки нет (Все метки) Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку ровно один раз. Указание: решение задачи простое, если вы будете использовать множества. 0

Найти буквы, входящие в строку один раз

Решение