Кредит в сумме S млн руб., выданный на n лет под i% годовых, подлежит погашению равными ежегодными выплатами в конце каждого года, включающими процентные платежи и сумму в погашение основного долга. Проценты начисляются в один раз в год. После выплаты третьего платежа достигнута договорённость между кредитором и заёмщиком о продлении срока погашения займа на n_2 лет и увеличении процентной ставки с момента конверсии до i_2%. Напишите программу, которая выводит план погашения оставшейся части долга. Используйте следующие формулы (А — размер аннуитетного платежа, его дробную часть округлите до двух знаков, то есть до копеек):
Пример:
Введите сумму кредита: 40e6
На сколько лет выдан? 5
Сколько процентов годовых? 6
Период: 1
Остаток долга на начало периода: 40000000.0
Выплачено процентов: 2400000.0
Выплачено тела кредита: 7095856.02
Период: 2
Остаток долга на начало периода: 32904143.98
Выплачено процентов: 1974248.6387999998
Выплачено тела кредита: 7521607.3812
Период: 3
Остаток долга на начало периода: 25382536.5988
Выплачено процентов: 1522952.195928
Выплачено тела кредита: 7972903.824072
Остаток долга: 17409632.774728
На сколько лет продляется договор? 2
Увеличение ставки до: 10
Период: 1
Остаток долга на начало периода: 17409632.774728
Выплачено процентов: 1740963.2774728
Выплачено тела кредита: 3751267.5625271997
Период: 2
Остаток долга на начало периода: 13658365.2122008
Выплачено процентов: 1365836.52122008
Выплачено тела кредита: 4126394.3187799198
Период: 3
Остаток долга на начало периода: 9531970.89342088
Выплачено процентов: 953197.0893420881
Выплачено тела кредита: 4539033.750657911
Период: 4
Остаток долга на начало периода: 4992937.142762969
Выплачено процентов: 499293.71427629696
Выплачено тела кредита: 4992937.125723703
Остаток долга: 0.017039266414940357
1.
Program u666;
Var
x, y, z, t, n, e, z1, z2, z3: real;
Begin
readln (e, x, y);
if sqrt (3*y)+x = 14
then
begin
z1:= Exp(3*x*y);
z2:= x+3*y;
z3:= 0.5*x;
writeln (z1);
writeln (z2);
writeln (z3)
end
else
z:= 0;
writeln (z);
end.
2. Program Regret;
var x: integer;
begin
read (x);
if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12)
then write ('31');
if (x=4) or (x=6) or (x=9) or (x=11)
then write ('30');
if (x=2)
then write ('28')
end.
Объяснение:
Интернет урок)
1.
Program u666;
Var
x, y, z, t, n, e, z1, z2, z3: real;
Begin
readln (e, x, y);
if sqrt (3*y)+x = 14
then
begin
z1:= Exp(3*x*y);
z2:= x+3*y;
z3:= 0.5*x;
writeln (z1);
writeln (z2);
writeln (z3)
end
else
z:= 0;
writeln (z);
end.
2. Program Regret;
var x: integer;
begin
read (x);
if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12)
then write ('31');
if (x=4) or (x=6) or (x=9) or (x=11)
then write ('30');
if (x=2)
then write ('28')
end.
Объяснение:
Интернет урок)