М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dianamuk20067
dianamuk20067
31.03.2021 22:42 •  Информатика

Найти сумму ряда x-x^2/2! +x^3/3! +x^4/

👇
Ответ:
ayazhanbeibit5
ayazhanbeibit5
31.03.2021
\displaystyle S=\sum_{i=1}^n\left((-1)^{i-1} \frac{x^i}{i!} \right)= \sum_{i=1}^n k_i\frac{a_i}{b_i}; \\ k_i= \left \{ 1, \quad i=1 \atop -k_{i-1}, \quad i\ \textgreater \ 1 \right. \\ a_i= \left \{ {{x, \quad i=1} \atop {x\times a_{i-1}, \quad i\ \textgreater \ 1}} \right. \\ b_i= \left \{ {{1, \quad i=1} \atop {i\times b_{i-1}, \quad i\ \textgreater \ 1}} \right.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var s:=x; var k:=1; var a:=x; var b:=1;
  for var i:=2 to n do begin k:=-k; a*=x; b*=i; s+=k*a/b end;
  Writeln('S=',s)
end.

Тестовое решение
n= 10
x= 1.8
S=0.834687130237714
4,4(81 оценок)
Открыть все ответы
Ответ:
anel42
anel42
31.03.2021

#include <iostream>

using namespace std;

int main()

{

   int x;

   cout << "Введите значение X: ";

   cin >> x;

   if (x >= -4 && x <= 1)

   {

       cout << "1";

   }

   else

   {

       cout << "0";

   }

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int x; // Создание целочисленной переменной x

   cout << "Введите значение X: "; // Вывод сообщения в консоль

   cin >> x; // Вводим значение с клавиатуры

   if (x >= -4 && x <= 1) // Если значение переменной x ≥ -4 И ≤ 1

   {

       cout << "1"; // Выводим 1

   }

   else // Иначе

   {

       cout << "0"; // Выводим 0

   }

}

4,4(51 оценок)
Ответ:
Spectator10
Spectator10
31.03.2021
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.
4,8(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ