Каково назначение приводимого ниже фрагмента Pascal-программы ?
- End;
- begin
- m:= 1;
- Mult:= m;
- interface
- Function Mult;
- implementation
- unit Unit_Mult;
- var i,m: integer;
- For i:=1 to n Do m:= m*i;
- Function Mult (n:integer): integer;
- Определение функции, предназначенной для вычисления суммы 1 + 2 + 3 + ... + n
- Определение процедуры, предназначенной для вычисления суммы 1 + 2 + 3 + ... + n
- Определение процедуры Mult, предназначенной для вычисления фактори-ала числа n
- Определение функции, предназначенной для вычисления факториа-ла задаваемого числа
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.