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

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. количество вводимых чисел вводится с клавиатуры.

👇
Ответ:
ulyalyas
ulyalyas
19.12.2020
Var c,b,v,r:integer;
begin
readln(c);
for b:=1 to c do
begin
readln(r);
If r mod 4 =0 then v:=v+1;
end;
writeln(v);
end.
4,5(94 оценок)
Открыть все ответы
Ответ:
MrZheka17
MrZheka17
19.12.2020
Чтобы излишне не терять точность и не тратить лишнее время на вычисления, выведем рекуррентную формулу.
\displaystyle a_1= \frac{3}{2}; \\ \\ a_{i-1}=\frac{3^{i-1}\cdot (i-1)!}{[2(i-1)]!}; \\ \\ a_i=\frac{3^i\cdot i!}{(2i)!} = \frac{3\cdot3^{i-1}\cdot i\cdot(i-1)!}{2 i\cdot(2i-1)\cdot(2i)!}={ \frac{3i}{2i\cdot(2i-1)}\cdot a_{i-1}=\frac{3}{4i-2}\cdot a_{i-1}
В задании не сказано точно, как определять условие окончания суммирования. Примем, что суммирование завершается, если очередной член ряда не может изменить накопленную сумму больше, чем на ε, т.е.
|aₓ| ≤ ε.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (ai1,eps,s,i):=(3/2,0.001,3/2,2);
  while true do begin
    var a:=3/(4*i-2)*ai1;
    if Abs(a)>eps then begin i+=1; s+=a; ai1:=a end
    else Break
    end;
  Writeln('S = ',s:0:3)
end.

Результат
S = 2.532

Напишите программу для суммы числового ряда. дан числовой ряд и малая величина е(эпсила). найдите су
4,5(79 оценок)
Ответ:
VikaBakevich
VikaBakevich
19.12.2020

1)

#include <iostream>

using namespace std;

int main()

{

int g, k, n=64;

for (g=0; g<=n; g++)

{

for (k=0; k<=n/2; k++)

{

if (2*g + 4*k == n)

{

printf ("Gycu - %d. \nKpoluk - %d.\n\n", g, k);

}

}

}

return 0;

}

2)#include <iostream>

using namespace std;

long double fact(int N)

{

if(N < 0)

return N;

if (N == 0)

return 1;

else

return N * fact(N - 1);

}

int main()

{

int N, M;

setlocale(0,"");

cout << "N=";

cin >> N;

cout<<"M=";

cin>>M;

cout<<"N!-M!=" << fact(N)-fact(M) << endl << endl;

return 0;

}

4,4(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ