............................................
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.
X=432
Пример на VBA Excel
Код программы можно посмотреть нажав Alt+F11
R = ((2*x)/(34*a+cos(x))) + log(x)
ближайшее большее число(но не меньшее, т.к. сообщение тогда не поместится), равное степени двойки(2,4,8,16,32,64,128,256....) это 256. 256-это два в восьмой степени. значит номер каждого спортсмена весит 8 бит. 8*120(половина спортсменов)=960 бит
или 8 бит-1 байт, тогда ответ 120 байт(те же 960 бит)