Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.
Есть два варианта:
1) Они поплыли на другой лодке а ту оставили у причала.
2) Лодка по течению поплыла сома.
А если не какой то это невозможно.
Но первый вариант надёжней.
Program Zadacha;
Var sum, raz, pr, ch, x, y, z: real;
Begin
randomize;
x:=random(50);
y:=random(50);
z:=random(50);
sum:= x + y + z;
Writeln('Сумма = ',sum:4:2);
raz:= x - y - z;
Writeln('Разность = ',raz:4:2);
pr:= x * y * z;
Writeln('Произведение = ',pr:4:2);
ch:= x/y; ch:= ch/z;
Writeln('Частное = ',ch:4:2);
End.<span> </span>
В информатике с таким понятием это - ГРАФ