Файл во вложении направляю на вам в группу для для покупок и в в
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
8л 5л 3л
Наполнили 5л. 3 5 0Перелили это в 3л, осталось 2 л. 3 2 3 3 л вернули в 8 л. 6 2 02л перелили в 3л. 6 0 2Наполнили 5л из 8л. 1 5 2 Отлили из 5л в 5л 1 4 3перелили 3л в 8л 4 4Число переливаний 7.
А=12
В=12+19=31
С=37-31+10=16
С=35-16=19
D=19+6=25
К=25+15=40
К=40
ближайшее большее число(но не меньшее, т.к. сообщение тогда не поместится), равное степени двойки(2,4,8,16,32,64,128,256....) это 256. 256-это два в восьмой степени. значит номер каждого спортсмена весит 8 бит. 8*120(половина спортсменов)=960 бит
или 8 бит-1 байт, тогда ответ 120 байт(те же 960 бит)