1. Информатика
  2. Написать программу,которая

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

ЁшкинКот2479 ЁшкинКот2479    2   25.12.2019 21:07    1

Ответы
perevuznik1 perevuznik1  10.10.2020 23:20

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lew8 lew8  14.08.2019 05:20
Vвa. использовать оператор цикла do. в диапазоне ячеек a1: b10 находятся 20 чисел. составьте программу, которая копирует данные числа в колону c (клетки от c1 до c20) следующим...
katerinamorozo2 katerinamorozo2  15.03.2021 16:23
наведіть цікаві теми для проекту тільки нормальні...
даша2149 даша2149  15.03.2021 16:23
Задание 5. Подсчёт элементов, удовлетворяющих условию - 2 Составьте программу заполнения массива А из двадцати элементов случайными целыми числами из отрезка от 0 до 50, вывода...
NastjaKucera13 NastjaKucera13  15.03.2021 16:23
Студент изменил название проекта на «Собирать фрукты в чашу» и необходимо увеличить разнообразие фруктов по тематике. Определите попытку размножения сорт фруктов....
pirozhkovanastya pirozhkovanastya  15.03.2021 16:24
Сколько ячеек содержит диапазон C3:D5​...
Bab4enock Bab4enock  02.10.2021 11:07
13. Вкажіть порядок створення архіву, використовуючи програму WinRAR а) Відкрити програму WinRARb) Знайти і виділити файли які потрібно добавити в архівс) Дати команду Добавити...
Vlada12092009 Vlada12092009  02.10.2021 11:15
1. Для чего нужно знать размер файла? 2. Как сохранить файлы с одинаковой информацией в раз-ных форматах и как это влияет на их размер?Как вы думаете, почему информация, записанная...
Даша46111 Даша46111  02.10.2021 11:16
Родина збирається у відпустк. Підрахуйте, скількт необхідно витратити коштів на білети, за умови, що: 1. Їдуть двоє дорослих і дитина 2. Вартість квитка для дорослого - 65 у.о....
garvarrd garvarrd  29.01.2022 13:54
ИНФОРМАТИКА 8класс Определите, что в перечисленных величинах константы, а что переменные. Запишите в ответе цифры, соответствующие переменным величинам. 1. Температура воздуха...
элирка3 элирка3  29.01.2022 13:57
1) Представьте в кодировке Windows-1251 шестнадцатеричным кодом текст: Медвежья услуга 2) Представьте в кодировке Windows-1251 шестнадцатеричным кодом текст: Отличный результат!...

Популярные вопросы