Консультация № 175638
26.12.2009, 22:31
0.00 руб.
0 1 1
Помогите начинающей программистке, решить непонятную задачку. Надо
Найти объединение множеств.
(6','2','2','5','8'), ('3','5','9')
спасибо

Обсуждение

давно
Профессор
401888
1232
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.
Форма ответа