<?php
 
error_reporting(-1);
 
$creditBalance = 40000; /* Долг анона перед банком */
$percent = 1.03; /* Банк начисляет 3% в месяц от суммы */
$servicePayment = 1000; /* А также 1000 рублей в месяц комиссии за обслуживание счета */
$monthlyPayment = 5000; /* Анон платит 5000 р в месяц, это все, что ему дает мама на завтраки */
$paymentTotal = 0; /* Сколько всего отдал банку анон */
$totalSum = 0; /* Сумма с процентами */
$sumAfterPay = 0; /* Сумма после уалаты 5000*/
 
/* Посчитаем расходы 20 раз на 20 месяцев вперед */
for ($month = 1; $month <= 200; $month ++) {
 
	$totalSum = ( $creditBalance * $percent ) + $servicePayment; /* Сумма с процентами и комиссией */
	$sumAfterPay = $totalSum - $monthlyPayment; /* Сумма после упалты */
	$creditBalance = $sumAfterPay; /* Баланс кредита становиться равен сумме после упалты */
 
	echo "{$month} месяц спустя: долг = {$totalSum} руб, выплачено всего {$paymentTotal} руб. \n";
 
      /* Если баланс отрицательный — хватит считать */
      if ($totalSum <= 5000) {
      	$monthlyPayment = $totalSum;
        $totalSum = $totalSum - $monthlyPayment;
        $paymentTotal = $paymentTotal + $monthlyPayment;
       	echo "{$month} месяц спустя: долг = {$totalSum} руб, выплачено всего {$paymentTotal} руб. \n";
 
 
          break;
      }
 
   	$paymentTotal = $paymentTotal + $monthlyPayment;
}
 
 

PD9waHAKCmVycm9yX3JlcG9ydGluZygtMSk7CgokY3JlZGl0QmFsYW5jZSA9IDQwMDAwOyAvKiDQlNC+0LvQsyDQsNC90L7QvdCwINC/0LXRgNC10LQg0LHQsNC90LrQvtC8ICovCiRwZXJjZW50ID0gMS4wMzsgLyog0JHQsNC90Log0L3QsNGH0LjRgdC70Y/QtdGCIDMlINCyINC80LXRgdGP0YYg0L7RgiDRgdGD0LzQvNGLICovCiRzZXJ2aWNlUGF5bWVudCA9IDEwMDA7IC8qINCQINGC0LDQutC20LUgMTAwMCDRgNGD0LHQu9C10Lkg0LIg0LzQtdGB0Y/RhiDQutC+0LzQuNGB0YHQuNC4INC30LAg0L7QsdGB0LvRg9C20LjQstCw0L3QuNC1INGB0YfQtdGC0LAgKi8KJG1vbnRobHlQYXltZW50ID0gNTAwMDsgLyog0JDQvdC+0L0g0L/Qu9Cw0YLQuNGCIDUwMDAg0YAg0LIg0LzQtdGB0Y/Rhiwg0Y3RgtC+INCy0YHQtSwg0YfRgtC+INC10LzRgyDQtNCw0LXRgiDQvNCw0LzQsCDQvdCwINC30LDQstGC0YDQsNC60LggKi8KJHBheW1lbnRUb3RhbCA9IDA7IC8qINCh0LrQvtC70YzQutC+INCy0YHQtdCz0L4g0L7RgtC00LDQuyDQsdCw0L3QutGDINCw0L3QvtC9ICovCiR0b3RhbFN1bSA9IDA7IC8qINCh0YPQvNC80LAg0YEg0L/RgNC+0YbQtdC90YLQsNC80LggKi8KJHN1bUFmdGVyUGF5ID0gMDsgLyog0KHRg9C80LzQsCDQv9C+0YHQu9C1INGD0LDQu9Cw0YLRiyA1MDAwKi8KCi8qINCf0L7RgdGH0LjRgtCw0LXQvCDRgNCw0YHRhdC+0LTRiyAyMCDRgNCw0Lcg0L3QsCAyMCDQvNC10YHRj9GG0LXQsiDQstC/0LXRgNC10LQgKi8KZm9yICgkbW9udGggPSAxOyAkbW9udGggPD0gMjAwOyAkbW9udGggKyspIHsKCQoJJHRvdGFsU3VtID0gKCAkY3JlZGl0QmFsYW5jZSAqICRwZXJjZW50ICkgKyAkc2VydmljZVBheW1lbnQ7IC8qINCh0YPQvNC80LAg0YEg0L/RgNC+0YbQtdC90YLQsNC80Lgg0Lgg0LrQvtC80LjRgdGB0LjQtdC5ICovCgkkc3VtQWZ0ZXJQYXkgPSAkdG90YWxTdW0gLSAkbW9udGhseVBheW1lbnQ7IC8qINCh0YPQvNC80LAg0L/QvtGB0LvQtSDRg9C/0LDQu9GC0YsgKi8KCSRjcmVkaXRCYWxhbmNlID0gJHN1bUFmdGVyUGF5OyAvKiDQkdCw0LvQsNC90YEg0LrRgNC10LTQuNGC0LAg0YHRgtCw0L3QvtCy0LjRgtGM0YHRjyDRgNCw0LLQtdC9INGB0YPQvNC80LUg0L/QvtGB0LvQtSDRg9C/0LDQu9GC0YsgKi8KCgllY2hvICJ7JG1vbnRofSDQvNC10YHRj9GGINGB0L/Rg9GB0YLRjzog0LTQvtC70LMgPSB7JHRvdGFsU3VtfSDRgNGD0LEsINCy0YvQv9C70LDRh9C10L3QviDQstGB0LXQs9C+IHskcGF5bWVudFRvdGFsfSDRgNGD0LEuIFxuIjsKCiAgICAgIC8qINCV0YHQu9C4INCx0LDQu9Cw0L3RgSDQvtGC0YDQuNGG0LDRgtC10LvRjNC90YvQuSDigJQg0YXQstCw0YLQuNGCINGB0YfQuNGC0LDRgtGMICovCiAgICAgIGlmICgkdG90YWxTdW0gPD0gNTAwMCkgewogICAgICAJJG1vbnRobHlQYXltZW50ID0gJHRvdGFsU3VtOwogICAgICAgICR0b3RhbFN1bSA9ICR0b3RhbFN1bSAtICRtb250aGx5UGF5bWVudDsKICAgICAgICAkcGF5bWVudFRvdGFsID0gJHBheW1lbnRUb3RhbCArICRtb250aGx5UGF5bWVudDsKICAgICAgIAllY2hvICJ7JG1vbnRofSDQvNC10YHRj9GGINGB0L/Rg9GB0YLRjzog0LTQvtC70LMgPSB7JHRvdGFsU3VtfSDRgNGD0LEsINCy0YvQv9C70LDRh9C10L3QviDQstGB0LXQs9C+IHskcGF5bWVudFRvdGFsfSDRgNGD0LEuIFxuIjsKICAgICAgICAKICAgICAgICAgCiAgICAgICAgICBicmVhazsKICAgICAgfQogICAgICAKICAgCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50Owp9CgogICAgICA=