М = 1000
D=500
С=100
L=50
Х=10
MCXLVII = 1000+100+40+7=1147
MDCCCXII = 1000+500+300+12=1812
MCMXLV =1000+900+40+5= 1945
MMXIV = 2000+10+4=2014
Явно зашифрованы знаменательные даты: 1147 г - первое упоминание о Москве
1812 - война с Наполеоном
1945 - победа в Великой Отечественной войне
В кодировке Unicode символ занимает 2 байта, в слове "информатика" 11 букв
11*2=22 байта
1) 512 Кбайт=2^9 *2^13 бит=2^22 бит - видеопамять
2) 16=2^4 ----> 4=2^2 бита для кодировки одного пикселя
3) 256=2^8 ---> 8 =2^3 бит для кодировки одного пикселя
4) 640*480 =5*2^7 *15*2^5 =75*2^12 - количество пикселей на одной странице
5) 75*2^12 *2^2 бит = 75*2^14 бит - 1 страница при 16 цветах
6) 75*2^12*2^3 =75*2^15 бит - 1 страница при 256 цветах
6) 2^22 : (75*2^14) =2^8 :75 =256:75 =3,413 =3 страницы
7) 2^22 : (75*2^15)=2^7 : 75 =128:75 = 1,7 =1 страница
ответ: 3; 1
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода
a.Println;
// элементы, кратные трем, упорядочить по убыванию
// прочие оставить на своих местах
var v := a.Select((v, i) -> (v, i))
.Where(t -> t[0] mod 3 = 0)
.OrderByDescending(t -> t[0])
.ToArray;
var w := v.Select(t -> t[1]).Sorted.ToArray;
for var i := 0 to w.High do
a[w[i]] := v[i][0];
a.Println
end.