Если x находится в A1, а y - в A2, то =(13*A1^2)/(8-A2)
мышь микрофон.............................................
<span>
1101₂
-111011₂
1100₂
х11011₂
101₂
10101110₂÷111₂</span>
2, можно взвесить по 2 монеты и выбрать из них там где есть и фальшивая, а потом взвесить их 2 отдельно
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=18;
var dna:=ArrRandom(n,-5,15); dna.Println; // заполнение и вывод массива
Writeln('Кол-во положительных равно ',dna.Where(t->t>0).Count)
end.
<u>Пример</u>
-3 3 -5 2 6 11 1 8 -4 -3 13 -2 5 -3 2 -5 4 7
Кол-во положительных равно 11