Вычислить значение выражения, используя процедуру без параметров - Turbo Pascal

Формулировка задачи:

Добрый вечер. Помогите пожалуйста с задачей Вычислить (2*5! + 3*8!)/(6! + 4!), используя процедуру без параметров. Добавлено через 8 минут P.S. Переделать данную программу. Вместо функции, сделать процедуру без параметров.
function fact(n:integer): longint;
var i,r: integer;
begin
 r:=1;
 if (n=0) or (n=1) then
  fact:=1
 else
  for i:=1 to n do
   r:=r*i;
 fact:=r;
end;
 
begin
 writeln((2*fact(5)+3*fact(8))/(fact(6)+fact(4)));
end.
Добавлено через 3 часа 20 минут UP. Срочно нужно. Помогите пожалуйста

Код к задаче: «Вычислить значение выражения, используя процедуру без параметров - Turbo Pascal»

textual
var n, f: integer;
    x, y: real;
 
procedure fact;
var i: integer;
begin
  f := 1;
  for i := 2 to n do f := f * i
end;
 
begin
  n := 5;
  fact;
  x := 2 * f;
  n := 8;
  fact;
  x := x + 3 * f;
  n := 6;
  fact;
  y := f;
  n := 4;
  fact;
  writeln(x / (y + f))
end.

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ