Документ объемом 20 Мбайт можно передать с одного компьютера на другой двумя А) Сжать архиватором, передать архив по каналу связи, распаковать Б) Передать по каналу связи без использования архиватора. Какой быстрее и насколько, если • средняя скорость передачи данных по каналу связи составляет 2^20 бит в секунду, • объем сжатого архиватором документа равен 60% от исходного, • время, требуемое на сжатие документа – 10 секунд, на распаковку – 2 секунда? В ответе напишите букву А, если А быстрее или Б, если быстрее Б. Сразу после буквы напишите количество секунд, насколько один быстрее другого.
В этом случае ежегодная сумма процентов по кредиту составит 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