Вычисление суммы факториалов - Pascal ABC (14826)

Формулировка задачи:

Составить программу для вычисления суммы: 2!+4!+6!+....+n! (n<=16, n - четное)

Код к задаче: «Вычисление суммы факториалов - Pascal ABC (14826)»

textual
Program Task5;
 
Var f,s,k : real;
 
Begin
    s:=0;
    k:=1;
    f:=1;
    while (k<=16) Do Begin
        f:=f*k*(k+1);
        s:=s+f;
        k:=k+2;
    End;
    writeln(s);
End.

8   голосов, оценка 3.250 из 5


СОХРАНИТЬ ССЫЛКУ