Из 16 монет половина фальшивых которые легче настоящих. за какое минимальное число взвешиваний с двухчашечных весов без гирь можно найти все фальшивые монеты?

1. разделить на 3 кучки по 4 монеты.  2. взвесить две кучки. если кучки равны значит фальшивая монета в той кучке которую мы отложили. 3. разделить кучку из 4 монет на две по 2 монеты. взвесить и определить в какой кучке фальшивая. 3. разделить кучку из 2 монет на две по 1 монете. взвесить и определить какая фальшивая.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

 

var

x: real;

begin

readln(x);

writeln(round(x));

end.