Определить четность и нечетность числа(решение) 1011111², 773⁸, 111¹⁶.

ответ:

1011111²,773⁸,111¹⁶.

1011111 - число нечетное., т.к. последняя цифра нечётная, а система счисления четная

с остальными так же. все они заканчиваются на нечетную цифру, и всех их чётные системы счисления.

1011111²= 1+2+4+8+16+64= 95

773 =7*8*8+7*8+3=58*9=522

111=1+16+16*16=256+16+1=273

Var i,max,min,flag,a,b,n: integer;   begin    read(n);     flag: =0;     for i: =1 to n do       begin       read(a);         if i=1 then         begin           max: =a;           min: =a;         end       else       begin         if a> max then           max: =a;         if min> a then           min: =a;         if b> a then           flag: =1;           b: =a;         end;       end;       if flag=0 then         writeln('yes')       else         writeln('no');         writeln(max-min);             end.

Var a,p,n,i: integer; begin   p : = 0;   n : = 0;   for i : = 1 to 15 do   begin   read(a);   if a mod 3 = 0 then       if a > 0 then p : = p + 1       else       if a < 0 then n : = n + 1   end;   if p > n then writeln('положительных') else   if p < n then writeln('отрицательных') else       writeln('одинаково') end. {вариант "как-то посложнее"} var a,i,s: integer; begin   s : = 0;   for i : = 1 to 15 do   begin   read(a);   s : = s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))   end;   if s > 0 then writeln('положительных') else   if s < 0 then writeln('отрицательных') else   writeln('одинаково') end.