Фермер вирощує новий сорт рослин для годівлі тварин. Він дослідив закономірність, що після кожного зрізу, який здійснюється через тиждень (один раз на два тижні) не більше 5 разів, кількість зеленої маси збільшується за формулою s=s+(i-1)*i, де і – номер тижня, s – кількість зеленої маси. Розробіть проект у середовищі програмування мовою Free Pascal, за яким буде визначено, чи встигне фермер зібрати n одиниць зеленої маси. Вказівка до виконання:
Скільки потрібно взяти доданків, перший з яких дорівнює заданому дійсному числу, а кожний наступний на 3 більший від попереднього, щоб їхня сума перевищила 100?
Даними цієї задачі є перший доданок. Вводитимемо його в поле.
Перед початком циклу присвоїмо змінній s, яку використаємо для збереження суми, значення першого доданка. А змінній n, яку використаємо для збереження кількості взятих доданків, присвоїмо значення 1, бо в сумі вже враховано один (перший) доданок. До суми потрібно додавати наступні доданки, поки ця сума буде меншою, або дорівнюватиме 100. Тому логічний вираз у заголовку циклу матиме вигляд s<=100. У тілі циклу шукатимемо наступний доданок, додаватимемо його до поточного значення суми і збільшуватимемо кількість доданих доданків на 1.
Вказівка до виконання:
3. Додаткове завдання
Створіть проект, у якому можна обчислити кількість двоцифрових чисел серед чисел, перше з яких дорівнює 10, а кожне наступне більше від попереднього на задане додатне число.
Наприклад: ми загадали число 15, тоді 10 + (10+15) + (25+15) <= 99. У цій нерівності є три доданки. 99 - найбільше ціле двоцифрове число. Підказка: