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

PD9waHAKCmVycm9yX3JlcG9ydGluZygtMSk7CgokY3JlZGl0QmFsYW5jZSA9IDQwMDAwOyAvKiDQlNC+0LvQsyDQkNC90L7QvdGH0LjQutCwINC/0LXRgNC10LQg0LHQsNC90LrQvtC8ICovCiRwZXJjZW50ID0gMS4wMzsgLyog0JHQsNC90Log0L3QsNGH0LjRgdC70Y/QtdGCIDMlINC+0YIg0YHRg9C80LzRiyDQsiDQvNC10YHRj9GGICovCiRzZXJ2aWNlUGF5bWVudCA9IDEwMDA7IC8qINCf0LvRjtGBIDEwMDAg0LIg0LzQtdGB0Y/RhiDQt9CwINC+0LHRgdC70YPQttC40LLQsNC90LjQtSDQutGA0LXQtNC40YLQsCAqLwokbW9udGhseVBheW1lbnQgPSA1MDAwOyAvKiDQkNC90L7QvdGH0LjQuiDQvNC+0LbQtdGCINC/0LvQsNGC0LjRgtGMINGC0L7Qu9GM0LrQviA1MDAwINCyINC80LXRgdGP0YYgKi8KJHBheW1lbnRUb3RhbCA9IDA7IC8qINCe0LHRidCw0Y8g0LLRi9C/0LvQsNGC0LAg0JDQvdC+0L3Rh9C40LrQsCAqLwoKZm9yICgkbW9udGggPSAxOyAkbW9udGggPD0gMjA7ICRtb250aCArKykgeyAvKtCe0LHRidC40Lkg0YbQuNC60Lsg0YEg0L/QvtC00YHRh9GR0YLQvtC8INGA0LDRgdGF0L7QtNC+0LIg0JDQvdC+0L3Rh9C40LrQsCovCgkKCSRkZWJ0ID0gKCRjcmVkaXRCYWxhbmNlICogJHBlcmNlbnQpICsgJHNlcnZpY2VQYXltZW50OyAvKtCU0L7Qu9CzINCQ0L3QvtC90YfQuNC60LAsINC60L7RgtC+0YDRi9C5INC+0YLQu9C40YfQsNC10YLRgdGPINC+0YIg0LjQt9C90LDRh9Cw0LvRjNC90L7QuSDRgdGD0LzQvNGLICjQmtGA0LXQtNC40YLQkdCw0LvQsNC90YEpKi8KCSRwYXltZW50VG90YWxMYXN0ID0gJHBheW1lbnRUb3RhbCArICRkZWJ0OyAvKtCf0LXRgNC10LzQtdC90L3QsNGPINC00LvRjyDQvtC/0YDQtdC00LXQu9C10L3QuNGPINGB0YPQvNC80Ysg0LLRi9C/0LvQsNGC0Ysg0LIg0YHQu9GD0YfQsNC1LCDQutC+0LPQtNCwINC00L7Qu9CzINCQ0L3QvtC90YfQuNC60LAg0LzQtdC90YzRiNC1INGB0YPQvNC80Ysg0LXQs9C+INC80LXRgdGP0YfQvdC+0Lkg0LLRi9C/0LvQsNGC0YsqLwoJJHBheW1lbnRUb3RhbCA9ICRwYXltZW50VG90YWwgKyAkbW9udGhseVBheW1lbnQ7CgkKCWlmICgkZGVidCA8PSAkbW9udGhseVBheW1lbnQpIHsgLyrQldGB0LvQuCDQtNC+0LvQsyDQvNC10L3RjNGI0LUg0YHRg9C80LzRiyDQvNC10YHRj9GH0L3QvtC5INCy0YvQv9C70LDRgtGLINC40LvQuCDRgNCw0LLQtdC9INC10LkqLwoJCSRjcmVkaXRCYWxhbmNlID0gMDsgCgkJICAgIGVjaG8gInskbW9udGh9INC80LXRgdGP0YYg0YHQv9GD0YHRgtGPOiDQtNC+0LvQsyA9IHskY3JlZGl0QmFsYW5jZX0g0YDRg9CxLCDQstGL0L/Qu9Cw0YfQtdC90L4g0LLRgdC10LPQviB7JHBheW1lbnRUb3RhbExhc3R9INGA0YPQsS5cbtCU0L7Qu9CzINC/0L7Qu9C90L7RgdGC0YzRjiDQstGL0L/Qu9Cw0YfQtdC9IVxuIjsKICAgICAgICAgICAgYnJlYWs7CiAgICB9IGVsc2UgeyAvKtCV0YHQu9C4INC00L7Qu9CzINC+0YHRgtCw0ZHRgtGB0Y8g0LHQvtC70YzRiNC1INGB0YPQvNC80Ysg0LzQtdGB0Y/Rh9C90L7QuSDQstGL0L/Qu9Cw0YLRiyDQkNC90L7QvdGH0LjQutCwKi8KCQkJJGNyZWRpdEJhbGFuY2UgPSAoJGNyZWRpdEJhbGFuY2UgKiAkcGVyY2VudCkgKyAkc2VydmljZVBheW1lbnQgLSAkbW9udGhseVBheW1lbnQ7CgkJCWVjaG8gInskbW9udGh9INC80LXRgdGP0YYg0YHQv9GD0YHRgtGPOiDQtNC+0LvQsyA9IHskY3JlZGl0QmFsYW5jZX0g0YDRg9CxLCDQstGL0L/Qu9Cw0YfQtdC90L4g0LLRgdC10LPQviB7JHBheW1lbnRUb3RhbH0g0YDRg9CxLlxuIjsKCQl9Cn0KCj8+