Программирование алгоритмов циклической структуры

[Mari.Prosto Mari]

Помогите, очень прошу, пожалуйста!!!!!!!!

решить с помощью трех видов циклов FOR, WHILE, REPEAT

Дано натуральное число n. Вычислить
S = 1! + 2! + 3! + … + n! (n>1)

[_-Re@l-_]

uses crt;
Function Factorial(x:integer):longint;
var j:integer;fact:longint;
begin
       Fact:=1;
       for j:=1 to x do
       Fact:=Fact*j;
       Factorial:=Fact;
end;

var s,i,n:integer;
begin
       clrscr;
       write('n = ');
       readln(n);
       s:=0;
       for i:=1 to n do
       s:=s+factorial(i);
       write('s = ',s);
       readln;
end.

[Stilet]

Вот еще так можно:

var f,e,n:integer;s:Longint;k:char;
begin         s:=0;
repeat
 for n:=1 to random(10) do begin
   f:=1;e:=1;while e<=n do begin f:=f*e; inc(e);end;
   s:=s+f;
 end;
  { TODO -oUser -cConsole Main : Insert code here }
  writeln(s);write('Повторим? ');
  readln(k);
until k<>'y';
end.

Я так своих преподавателей обхитрял, и ниче прокатило.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?p=535192

Uses
   CRT;
var
  s,j,k:longint;

function f(n:byte):longint;
var
  f1:longint;
  i:integer;
begin
i:=1;
      begin
        f1:=1;
          while i<=n do
              begin
                f1:=f1*i;
                inc(i);
              end;
              f:=f1;
          end;
          end;

begin
s:=0;
j:=1;
Clrscr;
write('k:=');
   readln(k);
   if k=0 then writeln(1)
    else if k<0 then
    begin
   writeln('Введено отрицательное число!!!')
   end
   else if k>0 then
   begin
     while j<=k do
        begin
          s:=s+f(j);
          inc(j);
        end;
     writeln(s);
     end;
readkey;
end.

Uses
   CRT;
var
  s,j,k:longint;

function f(n:byte):longint;
var
  f1:longint;
  i:integer;
begin
i:=1;
 if n=0 then f1:=1;
     begin
       f1:=1;
         repeat
            begin
              f1:=f1*i;
              inc(i);
            end;
         until i>n;
       f:=f1;
     end;
end;

begin
s:=0;
j:=1;
Clrscr;
write('k:=');
  readln(k);
  if k<0 then
   writeln('Введено отрицательное число!!!')
   else
   begin
    repeat
      begin
        s:=s+f(j);
        inc(j);
        end;
    until j>k;
     writeln('Resultat:=',s);
     end;
     readln;
end.

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.

[_-Re@l-_]

Интересный вариант, Stilet.
Просто мне было лень придумывать что-то очень хитрое

[Mari.Prosto Mari]

погите, пожалуйста со схемой, как с условием while я знаю, а остальные понятия не имею