5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33%

@ander2014638 · Регистрация: 16.10.2017

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

5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33% и меньше на 1. N(1) =9.

@Puporev · 20.02.2018, 18:54

Сообщение от ander2014638

м каждый последующий член больше предыдущего на 33% и меньше на 1.

Т.е. a[n]=a[n-1]*0.33-1?

@ander2014638 · 20.02.2018, 18:57 **[ТС]**

Pascal

Var n,t:real;
    i:byte;
Begin
    n:=100;
    For i:=3 to 7 do
     if i=6 then
     Begin
       n:=n+n*10/33-1;
       t:=n;
     End
     else n:=n+n*10/33-1;
     writeln(n-t);
     readln;
End.

так а тоя сам не оч понимаю?)

@Puporev · 20.02.2018, 19:34

А по моему так.

Pascal

var i:byte;
    a,s:real;
begin
s:=0;
for i:=1 to 7 do
 begin
  if i=1 then a:=9
  else a:=a*1.33-1;
  if i in [3..7] then s:=s+a;
 end;
write('s=',s:0:3)
end.

@Cyborg Drone · 22.02.2018, 01:48

Вариант:

Pascal

var i: byte;
    a, s: real;
begin
  a := 9;
  s := a;
  for i := 2 to 7 do
    begin
      a := a * 1.33 - 1;
      s := s + a
    end;
  write('s = ', s:0:3)
end.

@ander2014638 2 / 2 / 0 Регистрация: 16.10.2017 Сообщений: 139
		1
	5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33% 20.02.2018, 18:50. Показов 1175. Ответов 4 Метки нет (Все метки) 5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33% и меньше на 1. N(1) =9. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.02.2018, 18:54	2
	Сообщение от ander2014638 м каждый последующий член больше предыдущего на 33% и меньше на 1. Т.е. a[n]=a[n-1]*0.33-1? 0

	22.02.2018, 01:48

5. Подсчитать произведение членов ряда от 3 до 7 члена ряда, в котором каждый последующий член больше предыдущего на 33%

Решение