Множество, которому принадлежат те и только те элементы, которые одновременно принадлежат всем исходным множествам.

Множество, которому принадлежат те и только те элементы, которые   одновременно принадлежат всем исходным множествам - это пересечение .

// паскаль // программа поддерживает латиницу, кириллицу и дефисы const   // первая буквы, . "a" - 65, но может быть дефис #45   first_letter = #45;   // последняя буквы, рус. "я"   last_letter = #1103; var   x: string;   i: integer;   c: char;   // сколько раз встречает буква в слове   count: array[first_letter..last_letter] of integer; begin   readln(x);   // обнуляем массив   for c : = first_letter to last_letter do     count[c] : = 0;   // подсчитываем буквы в слове   for i : = 1 to length(x) do     inc(count[x[i]]);   // выводим слово без букв, встречающихся 3 раза   for i : = 1 to length(x) do     if count[x[i]] < > 3 then       write(x[i]) end.

Procedure p(const a: integer; var p: integer); var     k: real;     d: integer; begin if a > 1 then     if (a = 2)or(a = 3) then p: =p+1     else           if a mod 2 < > 0 then                 begin                 k: =sqrt(a);                 d: =3;                 while (d< k)and(a mod d < > 0) do                       d: =d+2;                 if a mod d < > 0 then                       begin                       p: =p+1;                       write('(простое)')                       end                 end; end; const     n = 20; var     a: array[1..n] of integer;     i,k: integer; begin randomize; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(99)+1;       write(' ',a[i]);       p(a[i],k);       end; writeln; writeln('кол-во простых чисел в массиве: ',k); end.