Расположить числа записанные в разных системах счисления в порядке возрастания 1.) 1011101(2); 65(8); 41(10); 7a(16) 2.) 100101(2); 36(8); 35(10); 3а(16)

1) 7а, 1011101, 65, 41 2) 3а, 100101, 35, 36

Var x, y: real;     i: integer; begin       for i : = 1000 downto 1 do       begin           if (i mod 2 = 0) then y : = -1 * i               else y : = i;           writeln('1/', i);           x : = x + 1 / y;       end;       writeln('> ', x); end.а вручную это пришлось бы минут 30 даже с калькулятором считать х_х

1) var a, b: real; begin       readln(a, b);     if (a > b) then writeln(a)     else         if (a < b) then writeln(b)         else             writeln('a = b'); end.2)var a, b, c: integer; begin      readln(a);       b : = a mod 100 div 10;       c : = a mod 10;       a : = a div 100;       write('a) ');     if (a > c) then writeln(a)    else        if (a < c) then writeln(c)        else            writeln('=');       write('b) ');     if (a > b) then writeln(a)    else        if (a < b) then writeln(b)        else            writeln('=');       write('c) ');     if (c > b) then writeln(c)    else        if (c < b) then writeln(b)        else            writeln('='); end.3 даже представить не могу, извините: )