Однажды 7 гномов нашли клад, горшок 9 монет одинаковых там была записка, при весов без гирь найдите среди этих монет одну золотую и купите белоснежке цветов. сделайте это при двух взвешиваний. золотая монета более тяжелая. как опредилили золотую монету?

По три монеты  взвесили  справа  и  слева,  если  одинаковый  вес,  то  взвешиваем  оставшиеся  3,  берем  олну  влево  одну вправо(тяжелая себя выдаст)  если  и  эти  равны  значит  золотая  последняя(ту что не взвешивали).  если  же среди тех что взвешивали мы сразу получилось что одна сторона перевесила, то из тех что перевесили берем для сравнения 2 монеты, и тоже самое - тяжелая себя выдаст а если равны то золотая та что не объяснил  

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =matrrandom(20,30,-30,50);   a.println(4); writeln(4*a.colcount*'-');   write('положительных по строкам: ');   a.rows.select(r-> r.where(e-> e> 0).count).println;   write('отрицательных по строкам: ');   a.rows.select(r-> r.where(e-> e< 0).count).println;   write('средние четных по строкам: ');   a.rows.select(x-> x.where(y-> y.iseven).average).       select(avg-> format('{0: f4}',; end.

Program z1; var s,i,x,p: integer; begin  s: =0; for i: =-5 to 5 do s: =s+i; writeln('введите целое трехзначное число'); readln(x); p: =(x div 100)*(x div 10 mod 10)*(x mod 10); if s> p then writeln('сумма чисел из диапазона [-5; 5] больше   произведения цифр числа ',x) else if s=p then writeln('сумма чисел из диапазона [-5; 5] равна   произведению цифр числа  ',x) else  writeln('сумма чисел из диапазона [-5; 5] меньше   произведения цифр числа  ',x); end.