PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;
var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');
var Лет := 0;
while Запас >= Порог do
begin
Запас := Запас * Прирост - Отлов;
Inc(Лет);
if Лет > 1000 then
begin
Println('И на тысячу лет хватит!');
Exit
end
end;
Println(Лет - 1)
end.
Введите х в процентах: 12.5
Введите A, B, C в тоннах: 300 90 75
3