Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово.
проверьте моё решение и исправьте что не так,
var s,s1: string; st2,st3,st1,st: set of char; n,i: byte;
begin
readln(s);
n: =length(s);
st: =['б','в'];
i: =1;
while i< =n do begin
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st1: =st1+[s[i]];
inc(i); if i=n then break;
end;
i: =i+1;
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st2: =st2+[s[i]];
inc(i); if i=n then break
end;
st3: =st1*st2;
st1: =st1-st3; st2: =st2-st3; st1: =st1+st2;
end;
for i: =1 to n do
if s[i] in st1 then n: =n else write(s[i],' ');
end.

rakrak2016    1   03.12.2019 21:08    2