Срочно даю 50 баллов!!!!!!!!!!!!!!!!!!!!!

Безотлагательно даю 50 баллов!!!!!!!!!!!!!!!!!!!!!

Задать свой вопрос
Ульяна Поплевина
И чего делать с этой картинкой, на которой ничего не рассмотреть?:
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 ilt;=n do

       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)

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт