var a,b,c,max : real;
begin
read(a,b,c);
max:=(a+b+abs(a-b))/2;
max:=(max+c+abs(max-c))/2;
writeln(max);
end.
Синих было N=2^2=4
Тогда всего шаров 24 +4=28
Дано:
Скорость1=1536 бит/c
Скорость2=768 бит/c
Размер файла1= 100 Кбайт=102400байт=819200 бит
Размер файла2= ?
Решение:
819200 / 1536 = 533,3 сек - скорость передачи 100 Кбайт данных по скорости1
533,3 * 768 = 409600 бит / 8 = 51200 байт / 1024 = 50 Кбайт - вес файла 2
Const n=20; p=50;
var a:array[1..n+1] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
a[n+1]:=p;
i:=1;
while a[i]<>p do i:=i+1;
if i<n+1 then writeln('Значение = ',p,' - это ',i,' элемент массива')
else writeln('Значения ',p,' в массиве нет');
end.
Пример:
<span> 76 27 15 97 12 14 72 50 51 8 40 47 38 28 30 47 31 4 94 3
Значение = 50 - это 8 элемент массива</span>