Каково назначение приводимого ниже фрагмента 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
  • Определение функции, предназначенной для вычисления факториа-ла задаваемого числа

К сожалению, у нас пока нет статистики ответов на данный вопрос, но мы работаем над этим.