Делим 9 монет на 3 кучи по 3 монеты
берем 2 кучи по 3 монеты и взвешиваем
если они равные,то монета в третьей кучке
Берем 3 кучу и делим её на еще 3 монеты
в итоге берем 2 монеты и взвешиваем,если они равные,то фальшивая 3 монета
Понял?
Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
#scripdablmassive #windowsreset
8 бит= 1 байт из этого исходит 8х125= 1000 бит находится в 125 байтах) Ответ может быть не верен)