Дополнительное задание 2 Расшифруй скороговорку с алфавита пронумерованного
в обратном порядке
10, 23, 35, 1, 17, 35, 10, 35, 31. 19. 20. 1. 10. 20. 17. 17.30, 1, 25, 1, 17, 20.
17, 35, 23, 35, 1, 17, 15, 10, 24 15.
21, 2,

PascalABC

Объяснение:

1)

begin

   WriteLn('Введите размер массива N: ');

   var n := ReadInteger;;

   var a := ArrRandomInteger(n, -20, 20);

   a.PrintLn;

   WriteLn('Сумма элементов, которые оканчиваются на число 2, равна ', a.Where(x -> (x mod 10 = 2) or (x mod 10 = -2)).Sum);

end.

2)

begin

   var a := ArrRandomInteger(10, -10, 10);

   a.PrintLn;

   WriteLn('Индексы отрицательных нечетных элементов:');

   foreach var i in a.Indices do

     if (a[i].IsOdd) and (a[i] < 0) then Write(i, ', ');

end.

ответ: 1499 9949

Python:

def f(n):

   digits = [int(i) for i in str(n)]

   # 1

   first_sum = digits[0] + digits[1]

   # 2

   second_sum = digits[1] + digits[2]

   # 3

   third_sum = digits[2] + digits[3]

   # 4

   amounts = [first_sum, second_sum, third_sum]

   del amounts[amounts.index(min(amounts))]

   # 5

   amounts.sort()

   return int(str(amounts[0]) + str(amounts[1]))

numbers = []

for x in range(1000, 10000):

   if f(x) == 1318:

       numbers.append(x)

print(numbers[0], numbers[-1])