Вычисление суммы факториалов

@ILue · Регистрация: 17.01.2013

Студворк — интернет-сервис помощи студентам

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

@ВаЛерика · 13.06.2015, 14:44

И в чем же тут проблема???

Пришлите Ваш код, поправлю.

@ILue · 13.06.2015, 20:16 **[ТС]**

ВаЛерика,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program qqq;
function fact(n:longint):real;
var i:longint;a:real;
begin
a:=1;
for i:=1 to n do
a:=a*i;
fact:=a;
n:=n+1;
end;
var n,i:longint;sum:real;
begin
sum:=0;
n:=0;
for i:=n to 16 do
sum:=fact(2)+fact(4)+fact(6)+fact(8)+fact(10)+fact(12)+fact(14)+fact(16);
writeln(sum);
end.

вот код, как можно по другому сложить факториалы только четных чисел, кроме такого

Pascal
1
sum:=fact(2)+fact(4)+fact(6)+fact(8)+fact(10)+fact(12)+fact(14)+fact(16);

@Catstail · 13.06.2015, 21:02

Очень нерационально... Факториал будет перевычисляться каждый с начала. Вот так - гораздо короче:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.

Ответ: 21010450850666

@ВаЛерика · 13.06.2015, 21:47

Согласна с Catstail

@Cyborg Drone · 17.06.2015, 01:40

Вариант:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\sum_{k=1}^8 (2k)!=1\cdot 2(1+3\cdot 4(1+5\cdot 6(1+7\cdot 8(1+9\cdot 10(1+11\cdot 12(1+13\cdot 14(1+15\cdot 16)))))))<br />$

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var s, k: double;
begin
  s := 1;
  k := 16;
  while (k >= 4) do
    begin
      s := s * k * (k - 1) + 1;
      k := k - 2
    end;
  s := s * 2;
  write(s:0:0);
  readln
end.

@Catstail · 17.06.2015, 19:28

Cyborg Drone, те же два умножения в цикле.

@Cyborg Drone · 17.06.2015, 20:00

Catstail, ну да. У меня и у Вас всякого разного добра поровну получилось. Разве что, у меня на одну переменную меньше. Я ж и говорю, что вариант.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@ILue 9 / 9 / 0 Регистрация: 17.01.2013 Сообщений: 87

	Вычисление суммы факториалов 13.06.2015, 01:36. Показов 3221. Ответов 7 Метки нет (Все метки) Составить программу для вычисления суммы: 2!+4!+6!+....+n! (n<=16, n - четное) 0

@ВаЛерика 121 / 26 / 27 Регистрация: 17.04.2013 Сообщений: 106
	13.06.2015, 14:44
	И в чем же тут проблема??? Пришлите Ваш код, поправлю. 0

@ВаЛерика 121 / 26 / 27 Регистрация: 17.04.2013 Сообщений: 106
	13.06.2015, 21:47
	Согласна с Catstail 0

@Catstail Супер-модератор 38173 / 21108 / 4307 Регистрация: 12.02.2012 Сообщений: 34,704 Записей в блоге: 14
	17.06.2015, 19:28
	Cyborg Drone, те же два умножения в цикле. 0

@Cyborg Drone Модератор 10423 / 5711 / 3402 Регистрация: 17.08.2012 Сообщений: 17,369
	17.06.2015, 20:00
	Catstail, ну да. У меня и у Вас всякого разного добра поровну получилось. Разве что, у меня на одну переменную меньше. Я ж и говорю, что вариант. 0

Вычисление суммы факториалов

Решение