??????? ??????? ??????:
???????? ??????? m ?? ????? ? s ?????? ?? n ??? ??? ??????? p ??????????? ?? ???????:
m = (s * r * (1 + r)n) / (12 * ((1 + r)n ? 1)), ??? r = p / 100.

?????????, ??????????? ???????? m (???????? ???????) ?? ????????? s (????? ?????), p (????????) ? n (?????????? ???), ????? ????????? ???:

????????? ?? ????? ???????:
var
m, s, p, n, r, a: real;

begin
write('???????? ????? : ');
readln(s);
write('???????: ');
readln(p);
write('?????????? ???: ');
readln(n);

r := p / 100;
a := exp(ln(1 + r) * n);
m := (s * r * a) / (12 * (a - 1));
m := trunc(100 * m + 0.5) / 100;

writeln;

writeln('???????? ???????: ', m:5:2);
writeln('??????? ?????: ', m * 12 * n - s:5:2);

readln
end.
??????????:
????????? exp(ln(1 + r) * n) ????????? (1 + r)n.
????????? trunc(100 * m + 0.5) / 100 ????????? ?????????? ?? ???????.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.