2) import math
a = int(input())result = 1sqrt = 0
for i in range(a, a+6): result *= i sqrt += 1 result = math.pow(result, 1/sqrt)print ("result :", result)
Всего 1508 цифр. начинаем с 4. тогда будем считать количество однозначных, двухзначных и трёхзначных номеров у страниц.
5, 6, 7, 8, 9 - всего 5, тогда 1508 - 5 = 1503 стр. не указал 4, так как на ней начинается первая глава. её и добавим с главами в конце.
теперь ряд 10, 11, 12 .. 97, 98, 99, в котором 90 двухзначных чисел, тогда
1503 - 90*2 = 1503 - 180 = 1323.
так как в ряду 100..999 много чисел, то просто разделим 1323 на 3 и получим 441.
теперь считаем
441(трёхзн) + 90(двухзн) + 5(однозн) + 3(нач) + 1(кон) + 6(главы) = 546 страница в книге.
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
<span> var
</span> mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.
Витя нарисовал лес в горах. Петя нарисовал лес. Даша нарисовала горы
Маска сети может иметь максимальный формат 255.255.255.255
<span>Поэтому ответ на вопрос - 255
</span>
