Программа с фактариалом

[Vadim7721]

Нужно написать программу, где надо найти сумму 12 членов ряда, в котором a (n маленькая под а) = n! /n( в степени корень n)

[Stilet]

12-ти это тебе длинная арифметика нужна. По-моему проц 32-битный только до 6-ти позволяет дойти.

[Poma][a]

12-ти это тебе длинная арифметика нужна.

Не правда твоя.. 12! это всего-то 479001600

[Stilet]

Хм. Действительно.

var i,n:integer;s:double;
begin    s:=1;
  n:=1;
  for i:=2 to 12 do begin
     n:=n*i;
     s:=s+n/exp(i*ln(sqrt(i)));
  end;
  write(s:10:2,n:20);
  readln;
end.

[Vadim7721]

var i,n:integer;s:double;
begin    s:=1;
  n:=1;
  for i:=2 to 12 do begin
     n:=n*i;
     s:=s+n/exp(i*ln(sqrt(i)));
  end;
  write(s:10:2,n:20);
  readln;
end.

[/QUOTE]
Спасибо большое

[Poma][a]

Мне надо сделать, чтобы он считал сумму 12ти членов рядов

Не хочется тебя разочаровывать, но именно это программка и делает.. убери только n:20 и радуйся