Дан линейный массив a[1..n], содержащий целые числа. посчитать сумму чисел, имеющих одинаковые остатки - id960321420201112 от bhncgfhkjghuiou 12.11.2020 16:40

Question

Информатика: Дан линейный массив a[1..n], содержащий целые числа. посчитать сумму чисел, имеющих одинаковые остатки при делении на 7 и на 2 и распечатать номера таких чисел.

bhncgfhkjghuiou · Accepted Answer

Чтобы излишне не терять точность и не тратить лишнее время на вычисления, выведем рекуррентную формулу.
$\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

Напишите программу для суммы числового ряда. дан числовой ряд и малая величина е(эпсила). найдите су

Напишите программу для суммы числового ряда. дан числовой ряд и малая величина е(эпсила). найдите су

Дан линейный массив a[1..n], содержащий целые числа. посчитать сумму чисел, имеющих одинаковые остатки при делении на 7 и на 2 и распечатать номера таких чисел.

MOGZ ответил