Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin p:=(a+b+c)/2; gero:=p*(p-a)*(p-b)*(p-c);end;begin write('Введите A'); readln(a); write('Введите B '); readln(b); write('Введите C'); readln(c); writeln(gero(a,b,c)); readkey;end.
Const n=15;
var
a:array[1..n]of integer;
i,i_max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(4)+15;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4);
writeln;
i_max:=1;
for i:=2 to n do
if a[i]>a[i_max]then
i_max:=i;
for i:=1 to n do
if a[i]mod 5=0 then
a[i]:=a[i_max];
for i:=1 to n do
write(a[i]:4);
<span> end.</span>
ближайшее большее число(но не меньшее, т.к. сообщение тогда не поместится), равное степени двойки(2,4,8,16,32,64,128,256....) это 256. 256-это два в восьмой степени. значит номер каждого спортсмена весит 8 бит. 8*120(половина спортсменов)=960 бит
или 8 бит-1 байт, тогда ответ 120 байт(те же 960 бит)
Сссссссссссссссссссссссссссссссссссссссссссс
16 символов - 4 бита.
4*74 = 296 битов.
296/8=37 байт