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