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
N=2ˣ
N - мощность алфавита
x - вес одного символа в битах.
У Алины 8 *2 = 16 Гб
16+8 = 24 Гб вместе у Алины и Яши
у Марата 24 * 4/3 = 32 Гб
Ответ 2)
1. a mod 2 = 0, mod - берется только остаток от деления. 10 mod 5 = 0