Простота работы в операционных системах с графическим интерфейсом достигается за счет​ ​

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

var

b1,b2,i,n,p: integer;

begin

write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);

p: =-1;

for i: =2 to n do

begin

p: =p*(-1);

b2: =p*b1-8;

writeln (i,' элемент = ', b2);

b1: =b2;

end;

end.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.