Вывести на экран те буквы, которые не встречаются ни в одном слове - Pascal ABC

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

Построить два множества: одно из букв данного слова Х и второе из букв данного слова У. Вывести на экран те буквы, которые не встречаются ни в одном слове.


textual

Код к задаче: «Вывести на экран те буквы, которые не встречаются ни в одном слове - Pascal ABC»

Uses crt;
Var x,y:string; mx,my:set of char; i:integer; s:char;
Begin
 writeln('Vvedite slovo X');
 readln(x);
 writeln('Vvedite slovo Y');
 readln(y);
 mx:=[];my:=[];
 for i:=1 to length(x) do mx:=mx+[x[i]];
 for i:=1 to length(y) do my:=my+[y[i]];
 writeln('Ne vstrechayutsa ne v X ne v Y: ');
 for s:='a' to 'z' do
  if not(s in mx+my) then write(s);
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5

Источник
Похожие ответы