Вы работаете в 15-этажном здании и имеете три одинаковых жестких диска. вы хотите определить – при броске с максимально какого этажа диск останется целым. если он разобьется даже при броске с первого этажа, то ответ 0. вы можете бросать имеющиеся диски с любого этажа, причем, если диск не разбился, то его можно бросать повторно. какое минимальное количество бросков вам придется сделать в худшем случае? можно было бы бросать всего один диск сначала с первого этажа, потом – второго и т.д., но, конечно, вы можете гарантированно решить за меньшее число бросков.

Решена ввиде графа цвет стрелочки показывает номер действия значит максимально действий нужно 5

Uses   crt; var   i,n: integer;   a,s: real; begin   writeln('вычисление среднего арифметического');   writeln('последовательности действительных чисел');   write('введите количество чисел последовательности -> ');   readln(n);   writeln('введите последовательность. после ввода каждого числа нажмите enter');   s: =0;   for i: =1 to n do   begin       read(a);       s: =s+a   end;   writeln('среднее арифметическое введенной последовательности: ',s/n);   write('для завершения работы программы нажмите enter');   readkey end. тестовое решение: вычисление среднего арифметического последовательности действительных чисел введите количество чисел последовательности -> 5 введите последовательность. после ввода каждого числа нажмите enter 5.4 7.8 3.0 1.5 2.3 среднее арифметическое введенной последовательности: 4 для завершения работы программы нажмите enter для версии pascal.abc.net: var   i,n: integer;   a,s: real; begin   writeln('вычисление среднего арифметического');   writeln('последовательности действительных чисел');   write('введите количество чисел последовательности -> ');   readln(n);   writeln('введите последовательность. после ввода каждого числа нажмите enter');   s: =0;   for i: =1 to n do   begin       read(a);       s: =s+a   end;   writeln('среднее арифметическое введенной последовательности: ',s/n) end.