Задача на множество)))

[mozhik]

Рассматривается массив символьных строк, состоящий не более чем из 10 строк. Длина строки не более 40. Прочитать массив и распечатать его. Для каждой строки массива построить множество из символов этой строки.
Напечатать слово "Да", если построенные множества попарно не пересекаются, и слово "Нет" в противном случае.

[Sasha_Smirnov]

По теме: эх, был бы у меня Паскаль))) или Паскаль О_о... или Паскаль++

Интересная фишка: если поменять местами "Да" и "Нет", задача станет много яснее.

[TinMan]

Вот тут тебе операции с множествами. Надеюсь, ввод и распечатку строк ты сделаешь сам..

const
  m= 10;
  l= 40;
var
  s: array[1..m] of string[l];
  c: array[1..m] of set of char;
  p: set of char;
.....
  {тут вводишь}
  {тут распечатываешь}
  for i:=1 to n do
    for j:=1 to Length(s[i]) do c[i]:= c[i] + s[i][j];
  p:= [];
  for i:= 1 to n do
    for j:=i+1 to n do p:= p + c[i]*c[j];
  if p=[] then writeln('да') else writeln('нет');

Пока писал, возникли сомнения относительно того, как понимать фразу "множества попарно не пересекаются". В представленном выше коде она понимается буквально, то есть ДА пишется только если НИ ОДНО множество не пересекается НИ С ОДНИМ другим.