Дано отрицательное число − 12 10 . в восьмиразрядном представлении:

12 в двоичном виде: 1*2^3 + 1*2^2 + 0*2^1 + 0*2^0 = 1100

запишем как отрицательное в прямом коде (старший разряд - знак (1), остальные без изменений):

1000 1100

в обратном коде (старший - знак, остальные инвертируются):

1111 0011

в дополнительном коде (обратный код + 1)

1111 0100

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.