Использование множеств - Pascal (251098)

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

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

Код к задаче: «Использование множеств - Pascal (251098)»

textual
var
  a, b: set of 'a'..'z';
  s: String;
  c: Char;
begin
  ReadLn(s);
  for c in s do if c in a then Include(c,b) else Include(c,a);
  Write('['); for c in b do Write(c:2); WriteLn(' ]');
end.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы