~n/3 достаточно.
Бросаем первый с этажа номер n/3. Если разбился, то бросаем второй по очереди с 1 этажа, потом со 2, ... до n/3 пока не разобьется. Так найдем этаж.
Если первый шар не разбился. бросаем его с этажа 2n/3. Если тут разбился, то бросаем второй с этажа n/3+1, потом с n/3+2, ... пока не разобьется.
Если 1 шар при падении с 2n/3 не разбился, то бросаем его с 2n/3+1, потом с 2n/3+2, ... пока не разобьется.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s:='дисковод';
Writeln(Copy(s,6,2)+Copy(s,3,2))
end.
Const n=10;
var a: array[1..n] of integer;
i,m,n,max:integer;
begin
randomize;
a[1]:=random(300);
max:=a[1];
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=random(300);
if a[i]>max then max:=a[i];
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i]>0 then a[i]:=a[i]*max;
<span>for i:=1 to n do
</span>write(a[i],' ');
end.
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования
<span>Носитель информации в Древней Руси. 7 букв. </span><span>
береста</span>