Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Rikihers1
Новичок
0 / 0 / 0
Регистрация: 15.05.2011
Сообщений: 11
19.05.2011, 23:53     Факториалы   #1
Вычислить у=1!+2!+3!+...+п!
п = const
AdAgent
Объявления
19.05.2011, 23:53    Факториалы
lamed
Форумчанин
296 / 296 / 3
Регистрация: 07.05.2011
Сообщений: 590
19.05.2011, 23:58     Факториалы   #2
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ Вычислить у=1!+2!+3!+...+п! }
var
  i, n: integer;
  y, u: longint;
begin
  readln(n);
  u:=1;
  y:= 0;
  for i:= 1 to n do
    begin
      u:=u*i;
      y:= y+u;
    end;
  writeln('y=',y);
  readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 19:23. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.