Имеется четыре арбуза различной массы. как, пользуясь чашечными весами без гирь, путем не более пяти взвешиваний расположить их по возрастанию массы?

вариант покороче

1)сравниваем первые два

2)больший сравниваем с третим

3)больший сравниваем с четвертым

 

все неравенства выписываем и становится очевидно какой самый большой и какой самый маленький.

 

4) возможно придется сравнить средние арбузы

пронумеруем для наглядности:   1, 2, 3, 4  итак:   1) сравниваем первую пару, например 1 и 2  2) сравниваем вторую пару — 3 и 4  3) сравниваем победителей первых двух пунктов между собой. победитель будет самым тяжёлым  4) сравниваем проигравших первых двух пунктов между собой. проигравший будет самым лёгким  5) теперь сравниваем те 2 арбуза, которые остались посерединке.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 begin   var t: =1000;   var k: integer;   repeat       k: =readinteger('-> ');       t-=k   until t< 0;   writeln('') end. пример -> 453 -> 216 -> 39 -> 64 -> 312 решение для "древних паскалей" var   k,t: integer; begin   t: =1000;   repeat       write('-> '); read(k);       t: =t-k   until t< 0;   writeln('') end.

Microsoft qbasic 1.0 cls x = 0 do while x < = 2.1001     print x, cos(x)     x = x + .1 loop результат   0                        1   .1                      .9950042   .2                      .9800666   .3                      .9553365   .4                      .921061   .5                      .8775826   .6                      .8253356   .7                      .7648422   .8000001          .6967067   .9000001          .6216099   1                        .5403022   1.1                    .453596   1.2                    .3623576   1.3                    .2674986   1.4                    .1699669   1.5                    7.073697e-02   1.6                  -2.919978e-02   1.7                  -.1288448   1.8                  -.2272024   1.9                  -.3232899   2                      -.4161471   2.1                  -.5048462