Задание: проверить справедливость соотношения n!=1+\sum_{i=1}^{n-1}i*i!

@ElizabetR · Регистрация: 18.11.2017

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

C++    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#pragma hdrstop
#include <conio.h>
#include <iostream.h>
#include <tchar.h>
//---------------------------------------------------------------------------
 
#pragma argsused
long fact (int n)
{
    long res = 1;
    for(int i=1; i<=n; i++):thank_you:
        res*=i;
    return res;
}
int _tmain(int argc, _TCHAR* argv[])
{
    int i,n;
    long nf,ress =0;
    cin>>i;
    cin>>n;
    nf = fact(n);
    for (int i = 1; i < n; i++)
        ress+=i*i;
    if (nf==(ress+1)) {
        cout<<"Verno";
    }
    else cout<<"Ne verno";
    getch();
    return 0;
}

Добавлено через 2 часа 30 минут
Переведите на Delphi пожалуйста

@Matan! · 13.12.2017, 18:28

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function Factorial(Number: Integer): Int64;
var
  i: Integer;
begin
  Result := 1;
  if Number > 1 then
    for i := 2 to Number do
      Result := Result * i;
end;
 
var
  i, j, n: Integer;
  nf, ress: Int64;
 
begin
  ress := 0;
  Readln(i);  // это лишнее
  Readln(n);
  nf := Factorial(n);
 
  for j := 1 to n - 1 do
    ress := ress + j * j;
  if nf = (ress + 1) then
    Write('Verno')
  else
    Write('Ne verno');
  Readln;
  Readln;
end.

@ElizabetR · 13.12.2017, 18:34 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Результаты исследования от команды MCM (март 2025 г.) Programma_Boinc 07.04.2025 Результаты исследования от команды MCM (март 2025 г. ) В рамках наших текущих исследований мы продолжаем изучать гены, которые имеют наибольшую вероятность развития рака легких, выявленные в рамках. . .	Рекурсивные типы в Python py-thonny 07.04.2025 Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .	C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges NullReferenced 07.04.2025 Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .	Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .

@ElizabetR 0 / 0 / 0 Регистрация: 18.11.2017 Сообщений: 48
	13.12.2017, 18:34 [ТС]
	Спасибо 0

Задание: проверить справедливость соотношения n!=1+\sum_{i=1}^{n-1}i*i!

Решение