Работа с римскими цифрами:
– Римские цифры: I = 1, V = 5, X = 10, L = 50, C = 100, D = 500, M = 1000
– Если цифра меньшего номинала стоит перед цифрой большего номинала, то её значение вычитается, при этом V не вычитается.
– Не должно быть больше трёх одинаковых цифр подряд
– Вычитаться не может больше одной одинаковой цифры
1. XI = 10 + 1 = 11
IX = -1 + 10 = 9
LX = 50 + 10 = 60
CLX = 100 + 50 + 10 = 160
MDCXLVIII = 1000 + 500 + 100 - 10 + 50 + 5 + 1 + 1 + 1 = 1648
2. 13 = 10 + 1 + 1 + 1 = XIII
99 = -10 + 100 - 1 + 10 = XCI (в упрощенной системе записи допустимо -1 + 100 = IC)
666 = 500 + 100 + 50 + 10 + 5 + 1 = DCLXVI
1692 = 1000 + 500 + 100 - 10 + 100 + 1 + 1 = MDCXCII
_______________________________________________
Если в десятичной системе счисления числа записываются по степеням 10 (например, 123 = 1 * 100 + 2 * 10 + 3 * 1), то в системе с основанием b всё записывается по степеням числа b (
). При этом цифры в системе счисления с основанием b принимают значение от 0 до b - 1; если цифр не хватает, то в ход идут буквы: A = 10, B = 11, C = 12, ...
3. Двоичная СС:
Троичная СС:
4. Обозначаем основание системы счисления за b, расписываем каждое число и получаем уравнения:
1) 5 + 4 = b + 1
b = 8
2) 4 + b + 1 = 2b
b = 5
3) b + 1 + b = b^2 + 1
b = 0 или 2 – основание сс не может быть равно 0
b = 2
4) b + 5 = 15
b = 10 – не подходит, в десятичной сс не может быть цифры F
ответ: 1) в восьмеричной, 2) в пятеричной, 3) в двоичной, 4) такого не бывает ни в какой системе счисления
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.