// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,c:real; Read(a,b,c); // не вводить одинаковых! if a>b then if a>c then // a > [b,c] if b>c then Writeln('Среднее - второе число') else Writeln('Среднее - третье число') else Writeln('Среднее - первое число') else if b>c then // b > [a,c] if a>c then Writeln('Среднее - первое число') else Writeln('Среднее - третье число') else Writeln('Среднее - второе число') end.
а) 58(10) = 111010(2)
58 : 2 = 29(ост. 0)
29 : 2 = 14(ост. 1)
14 : 2 = 7(ост. 0)
7 : 2 = 3(ост. 1)
3 : 2 = 1(ост. 1)
б) 39(10) = 100111(2)
39 : 2 = 19(ост. 1)
19 : 2 = 9(ост. 1)
9 : 2 = 4(ост. 1)
4 : 2 = 2(ост. 0)
2 : 2 = 1(ост. 0)
в) 33(10) = 100001(2)
33 : 2 = 16(ост. 1)
16 : 2 = 8(ост. 0)
8 : 2 = 4(ост. 0)
4 : 2 = 2(ост. 0)
2 : 2 = 1(ост. 0)