Для записи результата одного спортсмена требуется log(2)12≈4 бита (2^4=16). Объем информации о финише 2/3 спортсменов = 4*12*2/3 = 32 бита = 4 байта.
Мультимедиа — информационная система, обеспечивающая
одновременное представление информации в различных формах — звук,
анимированная компьютерная графика, видеоряд. Например, в одном
объекте-контейнере может содержатьсяа также, возможно, способ интерактивного взаимодействия с ней.
Program n_1;
uses math;
var i, n, m, a, kol, j:int64;
begin
readln(n);
kol:=0;
a:=n;
while a<>0 do begin
a:=a div 10;
kol:=kol+1;
end;
m:=n mod 100;
for i:=1 to kol-1 do begin
if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;
n:=m div 10;
end;
writeln(m);
end.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.
Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>