7. Определить те имена учеников, которые встречаются во всех классах данной параллели.

Решение

program lab7;

type

names = (anya,masha,lyuba,olya,kolya,zhenya);

const mas : array[0..5] of string[10]=('anya','masha','lyuba','olya','kolya', 'zhenya');

Var

a,b,c : set of names;

i : integer;

k : names;

Begin

a := [anya,masha,lyuba];

b := [anya,masha,olya];

c := [anya,masha,kolya];

writeln('Est vo vseh klassah: ');

for k := anya to zhenya do

 begin

 if (k in a) and (k in b) and (k in c) then

  write(mas[ord(k)],'  ');

 end;

writeln;

end.