0.384 милиграмма и 0.180 милиграмм
1)01,10,11
2) двоичный код
Var a:integer;
begin
readln(a);
if a = 1
then write('I');
if a = 2
then write('II');
if a = 3
then write('III');
if a = 4
then write('IV');
if a = 5
then write('V');
if a = 6
then write('VI');
if a = 7
then write('VII');
if a = 8
then write('VIII');
if a = 9
then write('IX');
if a = 10
then write('X');
if a = 11
then write('XI');
if a = 12
then write('XII');
if a = 13
then write('XIII');
if a = 14
then write('XIV');
if a = 15
then write('XV');
end.
<span>B3 (16) = 179 (10)
126 (8) = 86 (10)
86 + 179 = 265 (10) = 109 (16) = 411 (8) = 100001001 (2)
Можно такие вещи в калькуляторе считать. Выбираешь вид - Программист. А потом выбираешь систему счисления Hex - 16, Dec - 10, Oct - 8, Bin - 2. После записи числа, опять меняешь систему, калькулятор автоматом переводит.</span>
Var
A: array [1..9] of real;
i: byte;
begin
for i := 1 to 9 do read(A[i]);
for i := 9 downto 1 do writeln(A[i]);
end.
Пример:
1 2 3 4 5 6 7 8 9
9
8
7
6
5
4
3
2
1