<?php
error_reporting(-1);
//Баланс 39999, месячная плата 5000, гомо% 4, гомоком 500, софт%3, софтком 1000, страв%2, стравоткрытие 7777
function ipad($hBalance,$sBalance,$stBalance,$monthPayment,$homoPercent,$homoService,$softPercent,$softService, $strawPercent,$strawOpen) {
	for ($i = 1; $i = 100; $i++) {
		$hBalance = $hBalance * $homoPercent + $homoService;
		if ($hBalance < $monthPayment) {
			$totalHomoPayment = $totalHomoPayment + $hBalance;
			break;
		}
		else
		{
			$hBalance = $hBalance - $monthPayment;
			$totalHomoPayment = $totalHomoPayment + $monthPayment;
		}
	}
	for ($i = 1; $i = 100; $i++) {
		$sBalance = $sBalance * $softPercent + $softService;
		if ($sBalance < $monthPayment) {
			$totalSoftPayment = $totalSoftPayment + $sBalance;
			break;
		}
		else
		{
			$sBalance = $sBalance - $monthPayment;
			$totalSoftPayment = $totalSoftPayment + $monthPayment;
		}
	}
	$stBalance = $stBalance + $strawOpen;
	for ($i = 1; $i = 100; $i++) {
		$stBalance = $stBalance * $strawPercent;
		if ($stBalance < $monthPayment) {
			$totalStrawPayment = $totalStrawPayment + $stBalance;
			break;
		}
		else
		$stBalance = $stBalance - $monthPayment;
		$totalStrawPayment = $totalStrawPayment + $monthPayment;
	}
	return $totalHomoPayment.=$totalSoftPayment.$totalStrawPayment;
}
 
 
$homoTotal = ipad(39999,0,0,5000,1.04,500,0,0,0,0);
$softTotal = ipad(0,39999,0,5000,0,0,1.03,1000,0,0);
$strawTotal = ipad(0,0,39999,5000,0,0,0,0,1.02,7777);
echo "Гомобанк $homoTotal\n";
echo "Софтбанк $softTotal\n";
echo "Стравберри $strawTotal\n";

PD9waHAKZXJyb3JfcmVwb3J0aW5nKC0xKTsKLy/QkdCw0LvQsNC90YEgMzk5OTksINC80LXRgdGP0YfQvdCw0Y8g0L/Qu9Cw0YLQsCA1MDAwLCDQs9C+0LzQviUgNCwg0LPQvtC80L7QutC+0LwgNTAwLCDRgdC+0YTRgiUzLCDRgdC+0YTRgtC60L7QvCAxMDAwLCDRgdGC0YDQsNCyJTIsINGB0YLRgNCw0LLQvtGC0LrRgNGL0YLQuNC1IDc3NzcKZnVuY3Rpb24gaXBhZCgkaEJhbGFuY2UsJHNCYWxhbmNlLCRzdEJhbGFuY2UsJG1vbnRoUGF5bWVudCwkaG9tb1BlcmNlbnQsJGhvbW9TZXJ2aWNlLCRzb2Z0UGVyY2VudCwkc29mdFNlcnZpY2UsICRzdHJhd1BlcmNlbnQsJHN0cmF3T3BlbikgewoJZm9yICgkaSA9IDE7ICRpID0gMTAwOyAkaSsrKSB7CgkJJGhCYWxhbmNlID0gJGhCYWxhbmNlICogJGhvbW9QZXJjZW50ICsgJGhvbW9TZXJ2aWNlOwoJCWlmICgkaEJhbGFuY2UgPCAkbW9udGhQYXltZW50KSB7CgkJCSR0b3RhbEhvbW9QYXltZW50ID0gJHRvdGFsSG9tb1BheW1lbnQgKyAkaEJhbGFuY2U7CgkJCWJyZWFrOwoJCX0KCQllbHNlCgkJewoJCQkkaEJhbGFuY2UgPSAkaEJhbGFuY2UgLSAkbW9udGhQYXltZW50OwoJCQkkdG90YWxIb21vUGF5bWVudCA9ICR0b3RhbEhvbW9QYXltZW50ICsgJG1vbnRoUGF5bWVudDsKCQl9Cgl9Cglmb3IgKCRpID0gMTsgJGkgPSAxMDA7ICRpKyspIHsKCQkkc0JhbGFuY2UgPSAkc0JhbGFuY2UgKiAkc29mdFBlcmNlbnQgKyAkc29mdFNlcnZpY2U7CgkJaWYgKCRzQmFsYW5jZSA8ICRtb250aFBheW1lbnQpIHsKCQkJJHRvdGFsU29mdFBheW1lbnQgPSAkdG90YWxTb2Z0UGF5bWVudCArICRzQmFsYW5jZTsKCQkJYnJlYWs7CgkJfQoJCWVsc2UKCQl7CgkJCSRzQmFsYW5jZSA9ICRzQmFsYW5jZSAtICRtb250aFBheW1lbnQ7CgkJCSR0b3RhbFNvZnRQYXltZW50ID0gJHRvdGFsU29mdFBheW1lbnQgKyAkbW9udGhQYXltZW50OwoJCX0KCX0KCSRzdEJhbGFuY2UgPSAkc3RCYWxhbmNlICsgJHN0cmF3T3BlbjsKCWZvciAoJGkgPSAxOyAkaSA9IDEwMDsgJGkrKykgewoJCSRzdEJhbGFuY2UgPSAkc3RCYWxhbmNlICogJHN0cmF3UGVyY2VudDsKCQlpZiAoJHN0QmFsYW5jZSA8ICRtb250aFBheW1lbnQpIHsKCQkJJHRvdGFsU3RyYXdQYXltZW50ID0gJHRvdGFsU3RyYXdQYXltZW50ICsgJHN0QmFsYW5jZTsKCQkJYnJlYWs7CgkJfQoJCWVsc2UKCQkkc3RCYWxhbmNlID0gJHN0QmFsYW5jZSAtICRtb250aFBheW1lbnQ7CgkJJHRvdGFsU3RyYXdQYXltZW50ID0gJHRvdGFsU3RyYXdQYXltZW50ICsgJG1vbnRoUGF5bWVudDsKCX0KCXJldHVybiAkdG90YWxIb21vUGF5bWVudC49JHRvdGFsU29mdFBheW1lbnQuJHRvdGFsU3RyYXdQYXltZW50Owp9CgoJCQokaG9tb1RvdGFsID0gaXBhZCgzOTk5OSwwLDAsNTAwMCwxLjA0LDUwMCwwLDAsMCwwKTsKJHNvZnRUb3RhbCA9IGlwYWQoMCwzOTk5OSwwLDUwMDAsMCwwLDEuMDMsMTAwMCwwLDApOwokc3RyYXdUb3RhbCA9IGlwYWQoMCwwLDM5OTk5LDUwMDAsMCwwLDAsMCwxLjAyLDc3NzcpOwplY2hvICLQk9C+0LzQvtCx0LDQvdC6ICRob21vVG90YWxcbiI7CmVjaG8gItCh0L7RhNGC0LHQsNC90LogJHNvZnRUb3RhbFxuIjsKZWNobyAi0KHRgtGA0LDQstCx0LXRgNGA0LggJHN0cmF3VG90YWxcbiI7