Задача в delphi. Составить программу для нахождения суммы: 2!+3!+4!+...+N!

  • 03-02-2007 22:44
  • Просмотры: 16
Ответы ( 1 )
Инна Коваль
+1
04-02-2007 08:39

//Создать консольное приложение program ConsoleProgram; {$APPTYPE CONSOLE} var valueN,sum,i,i2,tmp:longint; begin sum:=0; readln(valueN); for i:=1 to valueN do begin tmp:=1; for i2:=1 to i do tmp:=tmp*i2; sum:=sum+tmp; end; writeln(sum); readln; end.

Похожие вопросы