Здравствуйте!Я здесь впервые хочу попросить помощи у знающих людей.Помогите решить контрольную.Сроки поджимают а в Паскале я не соображаю. Нажмите для просмотра прикрепленного файла

а что сама сделала? в чем возникают трудности?



вот одно из заланий...

{6} 

type
    myset=set of byte;
function col(const s:myset):byte;
const
     min=0;
     max=99;
var
   i, num: byte;
begin
     num:=0;
     for i:=min to max do
         if i in s
            then inc(num);
     col:=num;
end;

Читаем правила.

М

Заголовок темы должен быть информативным, в одной теме - одна задача, прикреплять docи запрещено.

Закрыто.