Написать программу,которая в последовательности натуральных чисел выявляла бы следующее: есть три последовательных числа(одно за другим), таких, что произведение 2-го и 3-го числа больше квадрата первого на 50.
(Говорят что просто, но я все перепробовал. Помогите.)
BobbyFresnel:
Плохо пробовал
Ответы
Ответ дал:
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
Напиши вместо этого какие-нибудь 1000 и не страдай)))
типо любое число?
Ну да... это до сколька проверять
ну там же написано натуральные числа
Да. Их бесконечно много.
а можно это просто не писать?
Поэтому пишем что-то большое, а завершаем досрочно, как только нашли.
Нельзя, цикл должен быть
ну ясно спасибо оч выручил
пожалуйста
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад