// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln(Range(1,150).Select(i->(i+2)/sqr(i+1)).Sum)
end.
<u><em>Результат выполнения программы:</em></u>5.23613653594721
1,2,7. все точки на которые он не сможет дойти.
1. 1048576
2. 536870912
3. 16384
4. 8796093022208
1.512 Гб
2.1 Мб
3.8 Петабайт
4.64 Терабайт
# Python 3.X
'''
В небоскрёбе n этажей и 1 подъезд,
на каждом этаже по 3 квартиры,
лифт останавливается только
на нечётных этажах. Человек садится
в лифт и нажимает номер нужной
ему квартиры. На какой этаж
дома довезёт лифт человека?
'''
n = int(input('n = '))
ap_to = int(input('Номер квартиры: '))
rem_floor = 1 if ap_to % 3 > 0 else 0
floor_ap_to = ap_to // 3 + rem_floor
if floor_ap_to > n:
raise ValueError('Такой квартиры нет!')
elif floor_ap_to % 2 == 0:
print('Лифт довезёт человека либо на {} этаж (придётся подняться на 1 этаж по лестнице,'.format(floor_ap_to -1))
print('либо на {} этаж, и на 1 этаж придётся спуститься.'.format(floor_ap_to + 1))
else:
print('Лифт довезёт человека на нужный этаж.')
<u><em>Задача 1.</em></u>
const
n=30;
var
a,b:array[1..n] of integer;
i,j,k:integer;
begin
{ самое сложное - создать такой массив,
где положительные и отрицательные элементы будут случайно
перемешаны и их будет по n/2.
Если организовать ввод с клавиатуры, то это гораздо проще.
}
Randomize;
{ инициализация "флажком" - значением 1000 }
for i:=1 to n do a[i]:=1000;
{ сначала генерируем n/2 случайных отрицательных на случайных местах }
for i:=1 to (n div 2) do
begin
k:=Random(50)-50; { случайное отрицательное значение }
{ а теперь ищем случайное свободное место }
repeat
j:=Random(30)+1
until a[j]=1000;
a[j]:=k
end;
{ теперь осталось сгенерировать n/2 случайных положительных чисел
и разместить их на свободных местах }
for i:=1 to (n div 2) do
begin
k:=Random(50)+1; { случайное положительное значение }
{ а теперь ищем свободное место }
j:=0;
repeat
Inc(j)
until a[j]=1000;
a[j]:=k
end;
{ и только отсюда начинается собственно задание }
Writeln('Исходный массив');
for i:=1 to n do Write(a[i]:4);
Writeln;
{ j - количество обработанных отрицательных,
k - количество положительных,
а массив строим так, что отрицательные элементы на нечетных местах }
if a[1]<0 then begin b[1]:=a[1]; j:=1; k:=0 end
else begin b[2]:=a[1]; j:=0; k:=1 end;
for i:=2 to n do
if a[i]<0 then
begin Inc(j); b[2*j-1]:=a[i] end
else begin Inc(k); b[2*k]:=a[i] end;
Writeln('Результирующий массив');
for i:=1 to n do Write(b[i]:4);
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
43 44 34 21 14 -26 32 35 -25 -8 42 -35 -37 12 45 -25 31 8 -16 -5 8 -25 -19 -15 -27 -16 12 26 -14 -41
Результирующий массив
-26 43 -25 44 -8 34 -35 21 -37 14 -25 32 -16 35 -5 42 -25 12 -19 45 -15 31 -27 8 -16 8 -14 12 -41 26