Контрольная на Паскале., Несколько задачек Опции

[Natarli]

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

Сообщение отредактировано: мисс_граффити - 24.11.2007 17:43

[compiler]

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

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



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

{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;