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

PD9waHAKLypXNS4xLiDQqNC60L7Qu9GM0L3QuNC6INGA0LXRiNC40Lsg0LrRg9C/0LjRgtGMINCw0LnRhNC+0L0g0Lgg0LTQu9GPINGN0YLQvtC5INGG0LXQu9C4INCy0LfRj9C7INC60YDQtdC00LjRgi4g0KHRg9C80LzQsCDQutGA0LXQtNC40YLQsCDigJQgNDAwMDAg0YAuLCAK0LHQsNC90Log0LIg0L3QsNGH0LDQu9C1INC60LDQttC00L7Qs9C+INC80LXRgdGP0YbQsCAo0LLQutC70Y7Rh9Cw0Y8g0L/QtdGA0LLRi9C5KSDQvdCw0YfQuNGB0LvRj9C10YIgMyUg0L7RgiDQvtGB0YLQsNGC0LrQsCDQtNC+0LvQs9CwINC30LAg0L/QvtC70YzQt9C+0LLQsNC90LjQtSDQutGA0LXQtNC40YLQvtC8CtC4IDEwMDAg0YAuINC60L7QvNC40YHRgdC40LggKNC00LAsINCwINGC0Ysg0LTRg9C80LDQuywg0L7QsdC+0LnQtNC10YjRjNGB0Y8g0L/RgNC+0YbQtdC90YLQsNC80Lg/KS4g0J/QvtGB0LvQtSDRjdGC0L7Qs9C+LCDQsiDQutC+0L3RhtC1INC60LDQttC00L7Qs9C+INC80LXRgdGP0YbQsCwgCtC90LDRiCDQs9C10YDQvtC5INC40LTQtdGCINCyINCx0LDQvdC6INC4INC/0YvRgtCw0LXRgtGB0Y8g0LLRi9C/0LvQsNGC0LjRgtGMINC00L7Qu9CzLCDQvdC+INC+0L0g0L3QtSDQvNC+0LbQtdGCINC30LDQv9C70LDRgtC40YLRjCDQsdC+0LvQtdC1IDUwMDAg0YAg0LfQsCDRgNCw0LcgCijRgdGN0LrQvtC90L7QvNC70LXQvdC90YvRhSDQvdCwINGI0LrQvtC70YzQvdGL0YUg0LfQsNCy0YLRgNCw0LrQsNGFKS4g0JLQvtC/0YDQvtGBLCDQutC+0LPQtNCwINC+0L0g0LjQt9Cx0LDQstC40YLRgdGPINC+0YIg0LTQvtC70LPQsD8gCtCS0L4g0YHQutC+0LvRjNC60L4g0YjQutC+0LvRjNC90LjQutGDINC+0LHQvtGI0LXQu9GB0Y8g0LDQudGE0L7QvT8qLwoKIAplcnJvcl9yZXBvcnRpbmcoLTEpOwogCiRjcmVkaXRCYWxhbmNlID0gNDAwMDA7IC8qINCU0L7Qu9CzINCw0L3QvtC90LAg0L/QtdGA0LXQtCDQsdCw0L3QutC+0LwgKi8KJHBlcmNlbnQgPSAxLjAzOyAvKiDQkdCw0L3QuiDQvdCw0YfQuNGB0LvRj9C10YIgMyUg0LIg0LzQtdGB0Y/RhiDQvtGCINGB0YPQvNC80YsgKi8KJHNlcnZpY2VQYXltZW50ID0gMTAwMDsgLyog0JAg0YLQsNC60LbQtSAxMDAwINGA0YPQsdC70LXQuSDQsiDQvNC10YHRj9GGINC60L7QvNC40YHRgdC40Lgg0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0YHRh9C10YLQsCAqLwokbW9udGhseVBheW1lbnQgPSA1MDAwOyAvKiDQkNC90L7QvSDQv9C70LDRgtC40YIgNTAwMCDRgCDQsiDQvNC10YHRj9GGLCDRjdGC0L4g0LLRgdC1LCDRh9GC0L4g0LXQvNGDINC00LDQtdGCINC80LDQvNCwINC90LAg0LfQsNCy0YLRgNCw0LrQuCAqLwokcGF5bWVudFRvdGFsID0gMDsgLyog0KHQutC+0LvRjNC60L4g0LLRgdC10LPQviDQvtGC0LTQsNC7INCx0LDQvdC60YMg0LDQvdC+0L0gKi8KIApmb3IgKCRtb250aCA9IDE7ICRtb250aCA8PSAyMDsgJG1vbnRoICsrKSB7CiAKCSRjcmVkaXRCYWxhbmNlID0gJGNyZWRpdEJhbGFuY2UgKiAkcGVyY2VudCArICRzZXJ2aWNlUGF5bWVudDsKCWlmICgkY3JlZGl0QmFsYW5jZSA+IDUwMDApIHsKCQkkY3JlZGl0QmFsYW5jZSA9ICRjcmVkaXRCYWxhbmNlIC0gJG1vbnRobHlQYXltZW50OwoJCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50OwoJfQoJZWxzZWlmICgkY3JlZGl0QmFsYW5jZSA8IDUwMDApIHsKCSRjcmVkaXRCYWxhbmNlID0gJGNyZWRpdEJhbGFuY2UgLSAkY3JlZGl0QmFsYW5jZTsKCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJGNyZWRpdEJhbGFuY2U7CglicmVhazsKCX0KIAoJZWNobyAieyRtb250aH0g0LzQtdGB0Y/RhiDRgdC/0YPRgdGC0Y86INC00L7Qu9CzID0geyRjcmVkaXRCYWxhbmNlfSDRgNGD0LEsINCy0YvQv9C70LDRh9C10L3QviDQstGB0LXQs9C+IHskcGF5bWVudFRvdGFsfSDRgNGD0LEuIFxuIjsKfQ==