457 : 2=228, остаток 1
228 : 2=114, остаток 0
114 : 2=57, остаток 0
57:2=28, остаток 1
28:2=14, остаток 0
14:2=7, остаток 0
7:2=3, остаток 1
3:2=1, остаток 1
1:2=1, остаток 0
0
Ответ: 4
Результат: ТМРРО
Const abc = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯА';
Var s : String;
Function Alg(ss : String) : String;
Var i : Integer;
Begin
If Odd(Length(ss)) then Insert(ss[(Length(ss) div 2)+1],ss,(Length(ss) div 2)+1) else ss:='С'+ss;
For i:=1 to Length(ss) do If Pos(ss[i],abc)>0 then ss[i]:=abc[Pos(ss[i],abc)+1];
Alg:=ss;
end;
Begin
{ Readln(s);
Writeln(Alg(s)); }
Writeln(Alg(Alg('КОМ')));
end.
Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
Unicode и uri это правельный ответ
1 бит на 1 цифру числа + по 3 бита на все остальные,
итого 1+3*6=19 бит