Максимум можно взвешивать 10 раз и найти монету
А именно:
Убрать 1 монету. На 1 чашу положить 1009 монет, и на вторую. и если весы показывают, что на одной чаше больше вес, то ту горсть мы разделяем на 2 половины (естественно убирая другую) и так делаем каждый раз пока не найдем монету)
256 цветов - 8-ми битная шкала цветности
8 бит на 1 точку, значит <span>120 байт = 960 бит. </span>
<span>960 бит/8 бит = 120 точек.</span>
const h=0.7;
var a, b, x, y: real;
begin
writeln(' [-1,8] s shagom 0.7 ');
a:=-1;
b:=8;
writeln('--------------------------');
writeln('| X | Y |');
writeln('--------------------------');
x:= a;
while x<= b do begin
y:=(x*x*x)-sqr(3*x)+9;
writeln('|', x:9:2, ' |' , y:9:2, ' |');
x:= x+h;
end;
writeln('--------------------------');
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Cуммы и число положительных элементов построчно:');
foreach var r in a.Rows do begin
var s:=r.Where(t->t>0);
Println(s.Sum,s.Count)
end
end.
<u>Пример</u>
Количество строк (столбцов) в массиве: 6
*** Исходный массив ***
-98 -66 14 -63 78 -47
-7 59 -88 -7 6 -13
-89 26 29 78 -79 54
-99 55 -15 45 -14 -58
-59 -68 -93 55 63 -33
-72 -94 42 -89 -86 70
------------------------
Cуммы и число положительных элементов построчно:
92 2
65 2
187 4
100 2
118 2
112 2