Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
В предложении 69 символов.
16 бит = 2 байта
I=69*2=138 байт
Ответ: 138 байт
1)Вообще можно и с 1 раза достать, но 100% вероятность будет только после того, как вытащишь все черные, то есть на 4 раз
2) Аналогично первой. 6 шаров.
3)Новорожденные дети тоже родственники
4)Делим кучу на 3 равные части, 2 из них на весы. Если их вес равен, но фальшивая в той куче, что осталась, если нет - то в более тяжелой. Берем кучу с фальшивой и возвращяемся к 1 шагу. Найти получится за 3 взвешивания
Извини за качество. третья формула x:=(x+y)/2
1AB (16cc) =1 1010 1011 (2cc) = 110 101 011 (2cc) =653 (8cc)