Определить, имеются ли в тексте слова, составленные из одних и тех же букв - Pascal
Формулировка задачи:
Определить, имеются ли в тексте слова, составленные из одних и тех же букв, при этом количество повторений каждой буквы во внимание не принимается (например, "малина" и "налим").
Решение задачи: «Определить, имеются ли в тексте слова, составленные из одних и тех же букв»
textual
Листинг программы
const l=['А'..'Я','а'..'я']; var s,st:String; words:array[1..100] of String; i,j,x,m:Integer; l1,l2:set of Char; b:Boolean; begin l1:=[]; l2:=[]; b:=False; m:=0; st:=''; Writeln('Введите последовательность слов, через пробел:'); Readln(s); s:=s+' '; for i:=1 to Length(s) do if s[i] in l then st:=st+s[i] else begin inc(m); words[m]:=st; st:=''; end; for i:=1 to m-1 do for j:=i+1 to m do begin for x:=1 to Length(words[i]) do Include(l1,UpCase(words[i][x])); for x:=1 to Length(words[j]) do Include(l2,UpCase(words[j][x])); if l1=l2 then b:=True; l1:=[]; l2:=[]; end; if b then Writeln('Есть слова составленные из одинаковых наборов букв.') else Writeln('Таких слов нет!'); Readln; end.