Помогите за 30 баллов!!!!!!!!!!!!!Срочно!!!

Question

Помогите за 30 баллов!!!!!!!!!!!!!Срочно!!!

---

---

Answer 1

{PascalABC}

Program Alexs5655;

var

 x1,x2,x,sum: real;

 i,n:integer;

begin

 var s:='**** -=Alphaeus=- ****'; var k:=0;

 for k:=1 to 22 do begin write(s[k]); sleep(47) end;

  writeln; write('Введите N = '); readln(n);

 x1:=2; x2:=1; sum:=x1+x2; i:=3;

 case n of

   1: sum:=x1;

   2: sum:=x1+x2;

   else

     while i<=n do</p>

       begin

         x:=0.8*x2+0.15*x1;

         sum:=sum+x;

         x1:=x2; x2:=x;

         inc(i);

       end;

 end;

{Вывод}    

 writeln('Сумма последовательности равна ',sum);

end.

(В блок-схеме, видимо, ошибка: при N=1 сумма должна вычисляться по формуле S:=x1, а не  S:=x2)

Comments

Перестаньте на каждый мой вопрос отправлять данный ответ

---

Он не верныйх

---

Мне нужны письменные вычисления а не ответ в паскале

---

А почему ж было не написать нормально в задании: "Мне нужны письменные вычисления"? Вместо воплей "Помогите!!!!!!!!!!!!!Срочно!!!" Неверный вопрос, а не ответ.

---

Простите но это не вопли, а единственный способ привлечь внимание людей

---

Я не отрицаю того факта, что не указал дополнительные факты в вопросе и это прежде всего это моя ошибка.

---

Но как вам уже писали ранее ваш ответ так и остаётся не верным

---

В задании надо сразу писать: "нужны письменные вычисления". И тогда это будет задание не по информатике, а по математике. А когда я вижу предмет "Информатика", я предполагаю, что нужно составить программу - разве не логично?

---

Я вас понял, спасибо что указали мне на мою ошибку. Мне надое задание дали по информатике поэтому я сразу и решил его отправить именно сюда, даже и не подозревал, что это должно быть в разделе математики.