Question

помогите, не могу справиться, сделать на pascal

Answer 1

Ответ:  

a[27]=16382

Pascal

const

 n=27;

var

 a:array[1..n] of integer;

 i:integer;

begin

 a[1]:=0;

 for i:= 2 to n do

   if i mod 2 <> 0 then

     a[i]:= 2*a[i-1]

   else

     a[i]:=a[i-1]+1;

   

  writeln('a[n]=',a[n]);

end.