ANTICHAT - Показать сообщение отдельно - паскаль, вы программер?

Цитата:

Сообщение от ~Lexx~

Uses crt;

var i,n:integer;
fact,sum:extended;

Begin ClrScr;
Writeln('vvedite chislo');
Readln(n);
sum:=0;
fact:=1;
for i:=1 to n do begin
fact:=fact*i;
sum:=sum+fact;
end;

writeln(sum);
readln;
end.

то rubik-nerubik ой блин... ты когда-нить читаешь чужие посты? Вот мое второе сообщение в этой теме - это твое решение перед Алгоритмом объяви переменные каk longint. и все заработает. Ты хоть читаешь чужие коды или просто- чем больше написано, тем круче алгоритм? Халк тебе предложил рекурсивную функцию по нахождению факториала - я тебе написал решение всей твоей задачи...