Найти сумму факториалов - Turbo Pascal

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

Язык программирования Паскаль. Составить программу вычисления S=1!+2!+…+n!

Код к задаче: «Найти сумму факториалов - Turbo Pascal»

textual
uses crt;
var s,f,i,n:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
s:=0;f:=1;
for i:=1 to n do
  begin
   f:=f*i;
   s:=s+f;
  end;
 
  write('S = ',s);
readkey;
END.

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


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