Задачи в Паскале

[vitekbest]

1 Множества
type продукт=(хлеб, масло, молоко,мясо, рыба, соль, сыр, колбаса, сахар, чай, кофе);
ассортимент = set of продукт;
магазины = array[1..20] of ассортимент;
Описать процедуру НАЛИЧИЕ(Маг,А,В,С), которая по информации из массива Маг типа магазины(Маг[i]-это множество продуктов, имеющихся в i-м магазине) присваивает параметрам А,В и С типа ассортимент следующие значения:
А-множество продуктов, которые есть во всех магазинах.

2 Списки
Описать рекурсивную функцию или процедуру, которая:
строит L1 - копию L.

3 Модули
Пусть процедура сокр(a,b,p,q) от целых параметров (b не равно 0) приводит дробь a/b к несократимому виду p/q.
Описать данную процедуру и использовать её для приведения дроби 1+1/2+1/3+...+1/20 к несократимому виду c/d.

Мне нужен код к каждой программе. Заранее спасибо!

[AlDelta]

Перед тем как поститься в разделе Помощь студентам, пройдись по ссылкам, что есть в моей подписи...

Закрыто...