Вкоробке 26 бриллиантов из которых 1 природного происхождения остальные-его копии изготовленные в лаборатории массы искусственных бриллиантов одинаковы а масса природного немного меньше продумай план действия для нахождения природного бриллианта за 3 взвешивания на чашечных весах без гирь

26 разделим по 3 кучки

получим 9 9 8

если взвесим 9 и 9 и какойто будет легче, то тот разбиваем еще на 3 кучки, т.е. уже

3 3 3,взвешиваем если оба одинаковы,то берем третий,если какой то из них меньше то берем его и расскладываем еще на 3 кучки,получаем 1 1 1,отсюда если два камня равны то они искусствены и берем третий,если нет,то берем меньший по весу.

теперь если 9 и 9 одинаковы

разложем 8 на 3 кучи

получаем 3 3 2

3 3 уже рассматривали,возьмем 2 разложим на 1 1 и один из них будет меньше по весу! в итоге 3 взвешивания!

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       {write('число проданных газет:   ');       readln(k); }       k : = 200;             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.

// pascal var   a: array [1..16] of integer;   i: integer; b: boolean; begin   randomize;   for i : = 1 to 16 do a[i] : = random(-20, 20);   for i : = 1 to 16 do       if a[i] = 0 then begin           if b then write(', ');           write(i, '-й ');           b : = true;       end;   if b then writeln('элемент(ы) равен(ны) нулю') else writeln('в массиве нету элементов, равных нулю.'); end.