Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
Var a:array[1..1000] of integer;
k:array[0..9] of integer;
n,i,m:integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=0 to 9 do k[i]:=0;
for i:=1 to n do
begin
m:=a[i];
while m>0 do
begin
inc(k[m mod 10]);
m:=m div 10;
end;
end;
m:=0;
for i:=1 to 9 do
if k[i]>=k[m] then m:=i;
writeln(m);
end.
Пример:
3
15
25
32
5
В алфавите 1024 символа, следовательно для кодирования 1 символа требуется 10 бит.
Всего символов 24576*10 бит= 245760 бит= 30720 байт= 30 Кб
Ответ: 30 Кб
Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки