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

PD9waHAKCmVycm9yX3JlcG9ydGluZygtMSk7CgokY3JlZGl0QmFsYW5jZSA9IDQwMDAwOyAvKiDQlNC+0LvQsyDQsNC90L7QvdCwINC/0LXRgNC10LQg0LHQsNC90LrQvtC8ICovCiRwZXJjZW50ID0gMS4xMzsgLyog0JHQsNC90Log0L3QsNGH0LjRgdC70Y/QtdGCIDMlINCyINC80LXRgdGP0YYg0L7RgiDRgdGD0LzQvNGLICovCiRzZXJ2aWNlUGF5bWVudCA9IDA7IC8qINCQINGC0LDQutC20LUgMTAwMCDRgNGD0LHQu9C10Lkg0LIg0LzQtdGB0Y/RhiDQutC+0LzQuNGB0YHQuNC4INC30LAg0L7QsdGB0LvRg9C20LjQstCw0L3QuNC1INGB0YfQtdGC0LAgKi8KJG1vbnRobHlQYXltZW50ID0gNDAwOyAvKiDQkNC90L7QvSDQv9C70LDRgtC40YIgNTAwMCDRgCDQsiDQvNC10YHRj9GGLCDRjdGC0L4g0LLRgdC1LCDRh9GC0L4g0LXQvNGDINC00LDQtdGCINC80LDQvNCwINC90LAg0LfQsNCy0YLRgNCw0LrQuCAqLwokcGF5bWVudFRvdGFsID0gMDsgLyog0KHQutC+0LvRjNC60L4g0LLRgdC10LPQviDQvtGC0LTQsNC7INCx0LDQvdC60YMg0LDQvdC+0L0gKi8KCi8qINCf0L7RgdGH0LjRgtCw0LXQvCDRgNCw0YHRhdC+0LTRiyAyMCDRgNCw0Lcg0L3QsCAyMCDQvNC10YHRj9GG0LXQsiDQstC/0LXRgNC10LQgKi8KZm9yICgkbW9udGggPSAxOyAkbW9udGggPD0gMjAgJiYgJG1vbnRobHlQYXltZW50IDwgJGNyZWRpdEJhbGFuY2U7ICRtb250aCArKykgewoJCgkkY3JlZGl0QmFsYW5jZSA9ICggJGNyZWRpdEJhbGFuY2UgKiAkcGVyY2VudCApICsgJHNlcnZpY2VQYXltZW50IC0gJG1vbnRobHlQYXltZW50OwoJJHBheW1lbnRUb3RhbCA9ICRwYXltZW50VG90YWwgKyAkbW9udGhseVBheW1lbnQ7CgllY2hvICIkbW9udGgg0LzQtdGB0Y/RhiDRgdC/0YPRgdGC0Y86INC00L7Qu9CzID0gJGNyZWRpdEJhbGFuY2Ug0YDRg9CxLCDQstGL0L/Qu9Cw0YfQtdC90L4g0LLRgdC10LPQviAkcGF5bWVudFRvdGFsINGA0YPQsS4gXG4iOwoKICAgICAgLyog0JXRgdC70Lgg0LHQsNC70LDQvdGBINC+0YLRgNC40YbQsNGC0LXQu9GM0L3Ri9C5IOKAlCDRhdCy0LDRgtC40YIg0YHRh9C40YLQsNGC0YwgKi8KICAgICAgaWYgKCRjcmVkaXRCYWxhbmNlIDwgJG1vbnRobHlQYXltZW50KSB7IAogICAgICAJJGNyZWRpdEJhbGFuY2UgPSAoICRjcmVkaXRCYWxhbmNlICogJHBlcmNlbnQgKSArICRzZXJ2aWNlUGF5bWVudCAtICRtb250aGx5UGF5bWVudDsKICAgICAgCSRtb250aCA9ICRtb250aCsxOwogICAgICAJJHBheW1lbnRUb3RhbD0gJHBheW1lbnRUb3RhbCArICRtb250aGx5UGF5bWVudDsKICAgICAgCWVjaG8gIiRtb250aCDQvNC10YHRj9GGINGB0L/Rg9GB0YLRjzog0LTQvtC70LMgPSAkY3JlZGl0QmFsYW5jZSDRgNGD0LEsINCy0YvQv9C70LDRh9C10L3QviDQstGB0LXQs9C+ICRwYXltZW50VG90YWwg0YDRg9CxLiBcbiI7CiAgICAgIAogICAgICAJaWYgKCRjcmVkaXRCYWxhbmNlIDwgJG1vbnRobHlQYXltZW50KSB7CiAgICAgIAkJJG1vbnRobHlQYXltZW50ID0gKCRjcmVkaXRCYWxhbmNlKiAkcGVyY2VudCkgKyAkc2VydmljZVBheW1lbnQgOwogICAgICAJCSRtb250aCA9ICRtb250aCsxOwogICAgICAJCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50OwogICAgICAJfQogICAgICAJZWNobyAiJG1vbnRoINC80LXRgdGP0YYg0YHQv9GD0YHRgtGPOiDQtNC+0LvQsyAkY3JlZGl0QmFsYW5jZSDRgNGD0LEsINCy0YvQv9C70LDRh9C10L3QviDQstGB0LXQs9C+ICRwYXltZW50VG90YWwg0YDRg9CxLiBcbiI7CiAgICAgIAllY2hvICLQoSDQvNC10L3RjyDRhdCy0LDRgtC40YIhIjsKICAgICAgICAgIGJyZWFrOwogICAgICB9Cn0=