Элементарно! 1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки. Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали. Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания. 2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две. Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали. Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание. 3) Сравниваем 2 монеты. Какая легче - та и фальшивая. Если они равны, то фальшивая третья, которую не взвешивали.
Алг нач цел Кол_во=256, логтаб Матрица[1:Кол_во] цел Число,j
Матрица[1]:=нет нц для Число от 2 до Кол_во Матрица[Число]:=да кц нц для Число от 2 до div(Кол_во,2) нц для j от 2 до div(Кол_во,Число) Матрица[Число*j]:=нет кц кц нц для Число от 1 до Кол_во если Матрица[Число]=да то вывод Число," " все кц кон
