Сначала нужно определить количество бит, которое требуется для сохранения одного номера. Всего 220 уникальных номеров. Количество бит вычисляется по формуле 2^n = k, где n - биты, а k - варианты, которые этими битами можно закодировать.
7 бит недостаточно для хранения 220 номеров, т.к. 2^7 = 128
8 бит достаточно, т.к. 2^8 = 256. То есть на одного спортсмена выделяется 8 бит, или 1 байт.
Всего участвовало 100 спортсменов, 100*1байт = 100байт
У меня что-то не грузится.........
Var a, x, b, s: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if (-2*b)/a < 0 then writeln('Нет решения') else
begin
x:=sqrt((-2*b)/a);
if x=0 then writeln('x = 0') else
writeln('x1 = ', x, ' | x2 = ', -x)end
end.