Валентина хочет определить пустой орех в кучке из 729 орехов. она знает, пустой орех только один и он легче остальных, имеющих одинаковую массу. валентина делит все орехи на три равные части с одинаковым числом орехов и взвешивает любые две части на двухчашечных весах. если вес частей разный, то валентина узнает, что пустой орех в той группе, которая легче, а если одинаковый, то в той части, которую не клали на весы. сколько нужно взвешиваний. чтобы найти пустой орех? а) 4 б) 5 в) 6

1729 3 243 2 243 3 81 3 81 3 27 4 27 3 9 5 9 3 3   как видим, всего 5 взвешиваний

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! function res(a: integer; op: char; b: integer): integer; begin   case op of   '+': result: =a+b;   '-': result: =a-b;   '*': result: =a*b;   '/': result: =a div b   end end; begin   var s: =readlnstring('вводите: ');   var p: =s.matches('+)|[\+\-\*\/])').toarray;   if p.count< > 5 then writeln('ошибка! ')   else begin       var op1: =p[1].value[1];       var op2: =p[3].value[1];       var a: =p[0].value.tointeger;       var b: =p[2].value.tointeger;       var c: =p[4].value.tointeger;       if (op1 in ['+','-']) and (op2 in ['*','/']) then           writeln('='+res(res(b,op2,c),op1,a))       else writeln('='+res(res(a,op1,b),op2,c))       end end. примеры вводите: -4--3--2 =1 вводите: 12*3+45 =81 вводите: 45+12*3 =81 вводите: -26/13--5 =3

Var b,c: boolean; a: integer; begin readln(a); writeln(not odd(a)); if a mod 10 = 7 then b: =true; writeln(b); writeln(not odd(a mod 10)); end.var r,a: integer; beginread(r,a); if a*a> pi*r*r then writeln('square')else if a*a< pi*r*r then writeln('circle')else writeln('equal'); end.var m1,m2,v1,v2: integer; beginread(m1,v1,m2,v2); if m1/v1> m2/v2 then writeln('p1> p2')else if m1/m2< m2/v2 then writeln('p1< p2')else writeln('p1=p2'); end.var a,b: real; beginread(a,b); b*=0.45; if a> b then writeln(b)else if a< b then writeln(a)else writeln('equal'); end.