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