===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.
Ответ:
Ну 8-3 и 8-1, соответственно 5 и 7
Объяснение:
Ответ с пробелами
352 бита
Ответ без пробелов
320 бита
Объяснение:
16 бит 1ин знак Значит надо умножить 16 на количество букв( в данном случае).
1)16*22=352
2)16*20=320
13 - XIII
99 - XCIX
666 - DCLXVI
444 - CDXLIV
1692 - MDCXCII