Pascal. дана непустая последовательность слов из строчных букв; между соседними словами – запятая, за последним словом – точка. напечатать звонкие согласные буквы, которые входят в каждое нечетное слово и не входят ни в одно четное слово в алфавитном порядке все.

Вариант для тех, кто любит и понимает множества. const   cs='бвгджз'; var   s: string;   i: integer;   c: char;   p,csg: set of char; begin   writeln('введите текст, разделяя слова запятыми, в конце поставьте точку');   readln(s);   p: =[];   for i: =1 to length(cs) do include(csg,cs[i]); { инициализация множества }   s: =lowercase(s); { к нижнему регистру }   i: =1; c: =s[1];   while c< > '.' do begin       { обработка нечетного слова }       while not (c in [',','.']) do begin           if (c in csg) and not (c in p) then include(p,c);           i: =i+1;           c: =s[i]       end;       { обработка четного слова }       if c< > '.' then begin i: =i+1; c: =s[i] end;       while not(c in [',','.']) do begin           if (c in csg) and (c in p) then exclude(p,c);           i: =i+1;           c: =s[i]       end;       if c< > '.' then begin i: =i+1; c: =s[i] end   end;   s: ='';   for i: =1 to length(cs) do if cs[i] in p then write(cs[i]) end. тестовое решение: введите текст, разделяя слова запятыми, в конце поставьте точку это,пример,текста,созданного,для,проверки,программы. гд вариант для тех, кто с множествами не дружит: const   cs='бвгджз'; var   s,p: string;   i,n: integer;   c: char; begin   writeln('введите текст, разделяя слова запятыми, в конце поставьте точку');   readln(s);   p: =''; n: =length(cs);   s: =lowercase(s); { к нижнему регистру }   i: =1; c: =s[1];   while c< > '.' do begin       { обработка нечетного слова }       while (c< > ',') and (c< > '.') do begin           if (pos(c,cs)> 0) and (pos(c,p)=0) then p: =p+c;           i: =i+1;           c: =s[i]       end;       { обработка четного слова }       if c< > '.' then begin i: =i+1; c: =s[i] end;       while (c< > ',') and (c< > '.') do begin           if (pos(c,cs)> 0) and (pos(c,p)=1) then p[pos(c,p)]: ='*';           i: =i+1;           c: =s[i]       end;       if c< > '.' then begin i: =i+1; c: =s[i] end   end;   for i: =1 to length(cs) do if pos(cs[i],p)> 0 then write(cs[i]) end. тестовое решение: введите текст, разделяя слова запятыми, в конце поставьте точку данная,фраза,предлагается,для,тестирования. вг

Program od; var   a, b: array[1..8] of integer;   i: integer; begin   for i : = 1 to 8 do       begin           a[i] : = sqr(i) + 1;           b[i] : = 2 * i - 1;       end; end.