Надо сделать в Кумире

Количество рыбы в реке, в которую сбрасывались загрязнения, ежегодно сокращалось на 20%. Определить, через сколько лет в реке почти не останется (ее количество будет меньше 1) рыбы? Извеcтно, что до начала загрязнения ее было N особей.
Нужна помощь!

Ответ:

Неужели геометрическую прогрессию осилить не можете?  

-20% - это -1/5. -1/5 - значит, каждый год остается 4/5 прежнего количества.  

Прошло N лет, осталось (4/5)^N от прежнего количества. Считайте.  

amount = ...

years=1;  

while amount>1 do {  

amount=4*amount/5;  

years++;  

}  

Условие >=1 - неверно, если осталась одна рыба - еще не конец.

Объяснение: