Поиск факториала числа 0<N<101

[SGU_ART]

Кто нибудь, можете написать такую программу? Почему то больше 17 не находит.
хочу заметить что раздел называется "помощь студентам", а я школьник, причем ничего не понимаюпомогите пожалуста

[Lemo]

http://programmersforum.ru/showthread.php?t=90514

[SGU_ART]

я там смотрел, но дело в том, что для 17 уже не правильно, а у меня числа колеблются от 1 до 101..

[Alex_sim]

Выложи код посмотрим под правим.

[SGU_ART]

да дело в том то что и самого кода нет, я сразу стал искать код для чисел >17.
нет возможности переделать то что здесь?http://programmersforum.ru/showthread.php?t=90514

[ROMA2PVT]

var
n:integer;
function  fact(m:integer):real;
var
    i:integer;
    k:real;
begin
k:=1;
for i:=1 to m do
  k:=k*i;
fact:=k;
end;
begin
Writeln('Введите число n: ');
readln(n);
Writeln('Result:',fact(n):8:0);
end.

[SGU_ART]

Сообщение от ROMA2PVT

var
n:integer;
function  fact(m:integer):real;
var
    i:integer;
    k:real;
begin
k:=1;
for i:=1 to m do
  k:=k*i;
fact:=k;
end;
begin
Writeln('Введите число n: ');
readln(n);
Writeln('Result:',fact(n):8:0);
end.

при поиске факториала 101 выводит 9.4E+0159

[ROMA2PVT]

А ты бы хотел чтобы он те это число полностью выводил.
94259477598383594208516231244829367 49562312794702543768327889353416977 59931622147650308786159180834691162 34900035495995833697063026032640000 00000000000000000000

[SGU_ART]

ага( я бы очень очень хотел бы(

[ROMA2PVT]

ага( я бы очень очень хотел бы(

Хочешь так сделай.