<?php
 
function totalCredit($creditSum, $payout, $percent, $comission, $paymentForAccount) {
	// Полную стоимость кредита будем считать сюда
	$totalCredit = 0;
 
	// Прибавляем платёж за открытие счёта к сумме кредита
	$creditSum += $paymentForAccount;
 
	while ($creditSum > 0) {
		// Начисления за месяц = проценты по кредиту + комиссия
		$monthlyPayments = $creditSum * ($percent / 100) + $comission;
		// Остаток по кредиту после начислений и ежемесячного платежа
		$creditSum = $creditSum + $monthlyPayments - $payout;
		// К полной стоимости кредита прибавляем платёж за текущий месяц
		$totalCredit += $payout;
	}
	// Если в последнем месяце получилась переплата
	if ($creditSum < 0) {
		// Вычитаем сумму переплаты из полной стоимости кредита
		// (знак сложения потому что в $creditSum отрицательное значение)
		$totalCredit += $creditSum;
		}
	// Возвращаем полную стоимость кредита
	return $totalCredit;
}
 
$creditSum = 39999;
$payout = 5000;
$homoCreditTotal = totalCredit($creditSum, $payout, 4, 500, 0);
$softbankTotal = totalCredit($creditSum, $payout, 3, 1000, 0);
$StrawberryBankTotal = totalCredit($creditSum, $payout, 2, 0, 7777);
 
echo "HomoCredit: {$homoCreditTotal} руб. \n";
echo "Softbank: {$softbankTotal} руб. \n";
echo "StrawberryBank: {$StrawberryBankTotal} руб. \n";

PD9waHAKCmZ1bmN0aW9uIHRvdGFsQ3JlZGl0KCRjcmVkaXRTdW0sICRwYXlvdXQsICRwZXJjZW50LCAkY29taXNzaW9uLCAkcGF5bWVudEZvckFjY291bnQpIHsKCS8vINCf0L7Qu9C90YPRjiDRgdGC0L7QuNC80L7RgdGC0Ywg0LrRgNC10LTQuNGC0LAg0LHRg9C00LXQvCDRgdGH0LjRgtCw0YLRjCDRgdGO0LTQsAoJJHRvdGFsQ3JlZGl0ID0gMDsKCgkvLyDQn9GA0LjQsdCw0LLQu9GP0LXQvCDQv9C70LDRgtGR0LYg0LfQsCDQvtGC0LrRgNGL0YLQuNC1INGB0YfRkdGC0LAg0Log0YHRg9C80LzQtSDQutGA0LXQtNC40YLQsAoJJGNyZWRpdFN1bSArPSAkcGF5bWVudEZvckFjY291bnQ7CgoJd2hpbGUgKCRjcmVkaXRTdW0gPiAwKSB7CgkJLy8g0J3QsNGH0LjRgdC70LXQvdC40Y8g0LfQsCDQvNC10YHRj9GGID0g0L/RgNC+0YbQtdC90YLRiyDQv9C+INC60YDQtdC00LjRgtGDICsg0LrQvtC80LjRgdGB0LjRjwoJCSRtb250aGx5UGF5bWVudHMgPSAkY3JlZGl0U3VtICogKCRwZXJjZW50IC8gMTAwKSArICRjb21pc3Npb247CgkJLy8g0J7RgdGC0LDRgtC+0Log0L/QviDQutGA0LXQtNC40YLRgyDQv9C+0YHQu9C1INC90LDRh9C40YHQu9C10L3QuNC5INC4INC10LbQtdC80LXRgdGP0YfQvdC+0LPQviDQv9C70LDRgtC10LbQsAoJCSRjcmVkaXRTdW0gPSAkY3JlZGl0U3VtICsgJG1vbnRobHlQYXltZW50cyAtICRwYXlvdXQ7CgkJLy8g0Jog0L/QvtC70L3QvtC5INGB0YLQvtC40LzQvtGB0YLQuCDQutGA0LXQtNC40YLQsCDQv9GA0LjQsdCw0LLQu9GP0LXQvCDQv9C70LDRgtGR0LYg0LfQsCDRgtC10LrRg9GJ0LjQuSDQvNC10YHRj9GGCgkJJHRvdGFsQ3JlZGl0ICs9ICRwYXlvdXQ7Cgl9CgkvLyDQldGB0LvQuCDQsiDQv9C+0YHQu9C10LTQvdC10Lwg0LzQtdGB0Y/RhtC1INC/0L7Qu9GD0YfQuNC70LDRgdGMINC/0LXRgNC10L/Qu9Cw0YLQsAoJaWYgKCRjcmVkaXRTdW0gPCAwKSB7CgkJLy8g0JLRi9GH0LjRgtCw0LXQvCDRgdGD0LzQvNGDINC/0LXRgNC10L/Qu9Cw0YLRiyDQuNC3INC/0L7Qu9C90L7QuSDRgdGC0L7QuNC80L7RgdGC0Lgg0LrRgNC10LTQuNGC0LAKCQkvLyAo0LfQvdCw0Log0YHQu9C+0LbQtdC90LjRjyDQv9C+0YLQvtC80YMg0YfRgtC+INCyICRjcmVkaXRTdW0g0L7RgtGA0LjRhtCw0YLQtdC70YzQvdC+0LUg0LfQvdCw0YfQtdC90LjQtSkKCQkkdG90YWxDcmVkaXQgKz0gJGNyZWRpdFN1bTsKCQl9CgkvLyDQktC+0LfQstGA0LDRidCw0LXQvCDQv9C+0LvQvdGD0Y4g0YHRgtC+0LjQvNC+0YHRgtGMINC60YDQtdC00LjRgtCwCglyZXR1cm4gJHRvdGFsQ3JlZGl0Owp9CgokY3JlZGl0U3VtID0gMzk5OTk7CiRwYXlvdXQgPSA1MDAwOwokaG9tb0NyZWRpdFRvdGFsID0gdG90YWxDcmVkaXQoJGNyZWRpdFN1bSwgJHBheW91dCwgNCwgNTAwLCAwKTsKJHNvZnRiYW5rVG90YWwgPSB0b3RhbENyZWRpdCgkY3JlZGl0U3VtLCAkcGF5b3V0LCAzLCAxMDAwLCAwKTsKJFN0cmF3YmVycnlCYW5rVG90YWwgPSB0b3RhbENyZWRpdCgkY3JlZGl0U3VtLCAkcGF5b3V0LCAyLCAwLCA3Nzc3KTsKCmVjaG8gIkhvbW9DcmVkaXQ6IHskaG9tb0NyZWRpdFRvdGFsfSDRgNGD0LEuIFxuIjsKZWNobyAiU29mdGJhbms6IHskc29mdGJhbmtUb3RhbH0g0YDRg9CxLiBcbiI7CmVjaG8gIlN0cmF3YmVycnlCYW5rOiB7JFN0cmF3YmVycnlCYW5rVG90YWx9INGA0YPQsS4gXG4iOw==