Предмет: Информатика, автор: bertain

Задание на фотографиях

Приложения:

bertain: обязательно с максимально подробным объяснением (!!!) кода

Ответы

Автор ответа: kornickevg
1

program sets;

type

mn=set of 0..9;

var

a,b,c:mn;

begin

a:=[1,2,3,4,5,6];

b:=[5,6,7,8,9,0];

writeln(a+b);

writeln(a*b);

write(a-a*b);

end.


bertain: Спасибо! Можете, пожалуйста, дописать объяснение к коду (за что отвечает каждая строка)?
kornickevg: program sets;

type

mn=set of 0..9;//описание множества десятичных цифр

var

a,b:mn;//объявление двух множеств

begin

a:=[1,2,3,4,5,6];//заполнение первого множества

b:=[5,6,7,8,9,0];//заполнение второго множества

writeln(a+b);//вывод результата объединения множеств

writeln(a*b);//вывод результата пересечения множеств

write(a-a*b);//вывод результата исключения из первого множества элементов, которые есть во втором множестве

end.
kornickevg: Да, понятно
kornickevg: Недогляд
Похожие вопросы
Предмет: Русский язык, автор: ket21
Предмет: Литература, автор: N12irena
Предмет: Алгебра, автор: shad2