сумма факториалов Паскаль

[newgener]

дано натурально n. вычислить s=1!+2!+3!...n!
НАХОЖДЕНИЕ ФАКТОРИАЛА ВЫНЕСТИ В ОТДЕЛЬНУЮ ПОДПРОГРАММУ

[DoDge_VipeR]

var s,j,k:longint;
function f(n:byte):longint;
var f1:longint;
i:integer;
begin
 if n<1 then f1:=1
else begin
f1:=1;
for i:=1 to n do
f1:=f1*i;
end;
f:=f1;
end;
end;
begin
s:=0;
readln(k);
for j:=1 to k do
s:=s+f(j);
writeln(s);
readln;end.

[newgener]

спасибо, но надо что бы без функции

[ROMA2PVT]

Uses
    CRT;
var
  fakt:longint;
  i,n:integer;
begin
Clrscr;
write('N:= ');
  Readln(n);
if n=0 then
fakt:=1;
if n<0 then
writeln('Введено отрицательное число')
else
fakt:=1;
  for i:=n downto 2 do
   begin
    fakt:=fakt*i+1;
   end;
   writeln('Сумма ряда s=1!+2!+3!...n!:=',fakt);
   readkey;
end.

[DoDge_VipeR]

спасибо, но надо что бы без функции

ох...енеть!
Вы задание свое внимательнее почитайте!

дано натурально n. вычислить s=1!+2!+3!...n!
НАХОЖДЕНИЕ ФАКТОРИАЛА ВЫНЕСТИ В ОТДЕЛЬНУЮ ПОДПРОГРАММУ

[ROMA2PVT]

А может он не знает что функция это и есть подпрограмма как и процедура.

[newgener]

а ну тогда извините)))