Андрей перекодировал послание на русском языке из 8-мибитной кодировки КОИ-8 в 16-тибитную кодировку Unicode. Объем файла в ходе данного процесса увеличился на 1024 байта. Каков был объем сообщения (в байтах) до перекодировки?
Var A,B,C:integer; Begin C:=365; Read(A,B); if A>1 then C:=C-31; if A=1 then C:=C-B; if A>2 then C:=C-28; if A=2 then C:=C-B; if A>3 then C:=C-31; if A=3 then C:=C-B; if A>4 then C:=C-30; if A=4 then C:=C-B; if A>5 then C:=C-31; if A=5 then C:=C-B; if A>6 then C:=C-30; if A=6 then C:=C-B; if A>7 then C:=C-31; if A=7 then C:=C-B; if A>8 then C:=C-31; if A=8 then C:=C-B; if A>9 then C:=C-30; if A=9 then C:=C-B; if A>10 then C:=C-31; if A=10 then C:=C-B; if A>11 then C:=C-30; if A=11 then C:=C-B; if A>12 then C:=C-31; if A=12 then C:=C-B; Write(C); End.
1024 байта
Объяснение:
В 16-битной кодировке объем файла ровно в два раза больше чем в 8-битной.
Обозначим объем файла в байтах в 8- битной кодировке за х
Тогда
x+1024=2x
x=1024 байта