Question

Написать программу,которая в последовательности натуральных чисел выявляла бы следующее: есть три последовательных числа(одно за другим), таких, что произведение 2-го и 3-го числа больше квадрата первого на 50. (Говорят что просто, но я все перепробовал. Помогите.)

Answer 1

===== PascalABC.NET =====

begin

 for var i := 1 to integer.MaxValue-2 do

   if (i+1)*(i+2) - i * i = 50 then

   begin

     Print(i, i+1, i+2);

     break

   end

end.

Результат: 16 17 18

Answer 2

Программа, которая решает данную задачу, можно написать на языке Python следующим образом:

def find_numbers():
    n = 1  # начальное число последовательности
    while True:
        num1 = n
        num2 = n + 1
        num3 = n + 2
      
        if num2 * num3 > num1 ** 2 + 50:
            return num1, num2, num3
      
        n += 1

# проверяем программу
result = find_numbers()
print(result)

В этой программе мы используем цикл `while True`, чтобы проверить все числа последовательности. В каждой итерации цикла мы проверяем, удовлетворяют ли текущие три числа условию задачи. Если условие выполняется, мы возвращаем эти три числа и завершаем цикл. Если условие не выполняется, мы увеличиваем значение `n` на 1 и продолжаем проверять следующие три числа последовательности.

Программа выводит найденные числа, удовлетворяющие условию задачи.