Для введення послідовності текстових даних у діапазон клітинок (А-Д): №1
№2
№3
№4
№5
Натиснути ліву кнопку миші та, утримуючи й натиснутою, виділити потрібний діапазон
Відпустити ліву кнопку миші.
Навести вказівник на маркер заповнення (при цьому вказівник виглядатиме як чорний хрестик +).
Зробити цю клітинку поточною.
Увести в першу клітинку діапазону перший елемент списку. ИНФОРМАТИКА
В этом случае ежегодная сумма процентов по кредиту составит Sk=k×p%/100%.
За n лет будет отдано n×Sk. И еще нужно вернуть саму сумму кредита k.
Итого нужно вернуть k+n×Sk.
Доход за это время составит n×r и получаем неравенство
n×r ≥ n×Sk+k
n×(r-Sk) ≥ k → n ≥ k/(r-Sk) с округлением до целых в большую сторону.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (k,p):=ReadReal2('Сумма кредита и процент годовых:');
var r:=ReadReal('Предполагаемый годовой доход:');
var Sk:=k*p/100;
if r<=Sk then Writeln('Рассчитаться за кредит невозможно')
else Writeln('Количество лет на погашение кредита: ',Floor(k/(r-Sk)))
end.
Пример
Сумма кредита и процент годовых:10 0000 16
Предполагаемый годовой доход: 24000
Количество лет на погашение кредита: 12
max_num = 0
for f in xrange(10):
for o in xrange(10):
for x in xrange(10):
for e in xrange(10):
for r in xrange(10):
for d in xrange(10):
b = f*r*d*d
if b == 0:
continue
num = (f + o + x + e) * b
if num > max_num:
max_num = num
print "Maximum value of (F+O+X+E)*(F*R*D*D) is: %i" % max_num
Решение можно получить гораздо проще, если догадаться, что наибольшее значение выражения достигается, когда сумма F+O+X+E и произведение F*R*D*D являются максимальными. Это одновременно происходит, когда все цифры равны 9: (9+9+9+9)*9*9*9*9 = 236196