26.12.2009, 22:40
общий
это ответ
Здравствуйте, Lena Nikulina!
Решение в приложении.
Приложение:
var m1,m2,m3:set of char;{поскольку цивры в апострофах, то это множество символьного типа}
i:char;{счетчик цикла, того же типа}
begin
m1:=['6','2','2','5','8'];{первое множество}
m2:=['3','5','9'];{второе}
m3:=m1+m2;{объединение множеств}
writeln('Объединение множеств:');
for i:='2' to '9' do{от символа 2 до символа 9}
if i in m3 then write(i,' ');{если символ есть в множестве, выводим}
readln
end.