Программы/приложения могут перестать работать в том случае, если какая-нибудь другая программа/приложение повреждена.
Var
i, s: integer;
begin
s:=0;
for i:=1 to 50 do
if (i mod 3 = 0) or (i mod 7 = 0) then
inc(s, i);
<span>writeln(s);
</span>end.
Пусть компьютер считает.
javascript:for (let сч = Math.pow(15, 4); сч < Math.pow(15, 5); сч++) { let м = [], п = сч; while (п > 0) { м.push(п % 15); п = п / 15 | 0; } п = сч * 4; let сч1 = 4, н = true; while (п > 0) { if (м[сч1] != п % 15) { н = false; break; } п = п / 15 | 0; сч1--; } if (н) { alert(сч); break; } }
Это число - 161952.
Рассмотрим простейшую схему кредитования (и самую невыгодную для заёмщика), когда за каждый год отдается фиксированный процент p от первоначальной суммы кредита k без учета того, что часть кредита уже погашена за предыдущие годы.
В этом случае ежегодная сумма процентов по кредиту составит 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) с округлением до целых в большую сторону.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
Сумма кредита и процент годовых:10 0000 16
Предполагаемый годовой доход: 24000
Количество лет на погашение кредита: 12
