===== PascalABC.NET =====
begin
var x := ReadReal;
var (K, L) := (2.7, 3.0);
var y, a: real;
if x < 16 then
y := L*x/(x+1)
else
y := K + 2*x;
a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));
Print('y =', y, ' a =', a)
end.
Сначала нужно определить количество бит, которое требуется для сохранения одного номера. Всего 220 уникальных номеров. Количество бит вычисляется по формуле 2^n = k, где n - биты, а k - варианты, которые этими битами можно закодировать.
7 бит недостаточно для хранения 220 номеров, т.к. 2^7 = 128
8 бит достаточно, т.к. 2^8 = 256. То есть на одного спортсмена выделяется 8 бит, или 1 байт.
Всего участвовало 100 спортсменов, 100*1байт = 100байт
Pascal:
var
a, b, c, d: integer;
begin
read(a); read(b); read(c); d:=0;
d:=c; c:=a; a:=d;
writeln(a, ' ',b, ' ',c);
end.