Вычислить факториал числа n (n! ) . (прим: 5! =1*2*3*4*5)

Const    len = 1000; type     longnum = array[1..len] of longint; var         n, i: longint;         s: longnum;       procedure initlongnumber(n: longint; var a: longnum); var       i: longint; begin       for i : = 1 to len do           if n < > 0 then               begin                   a[i] : = n mod 10;                   n : = n div 10               end else                   a[i] : = 0; end; function mul(a: longnum; k: longint): longnum; var       i, tmp: longint; begin       tmp : = 0;             for i : = 1 to len - 1 do     begin           a[i] : = a[i] * k + tmp;         tmp : = a[i] div 10;           a[i] : = a[i] mod 10        end;       result : = a end; procedure printlongnumber(a: longnum); var       i, j: longint; begin       i : = len;       while a[i] = 0 do           dec(i);       for j : = i downto 1 do           write(a[j])end; begin          readln(n);     initlongnumber(1, s);     for i : = 1 to n do               s : = mul(s, i);     write(n, '! = ');     printlongnumber(s); end. 

Решение только для pascalabc.net: uses system.numerics; var   n,i: integer; begin   write('введите натуральное число: '); read(n);   var f: =new biginteger(1);   for i: =2 to n do f: =f*i;   writeln(n,'! = ',f); end. тестовое решение: введите натуральное число: 50 50! = 30414093201713378043612608166064768844377641568960512000000000000

ответ: в

save - сохранение

print - печать