Ежегодный прирост рыбы составляет 13%. Ежегодный план отлова — 180 тонн. Наименьший запас рыбы, ниже которого запас уже не восстанавливается, — 250 тонн. Постройте таблицу, рассчитывающую количество рыбы в пруду на 20 лет. Пометьте, начиная с какого момента невозможно выполнить заданный план отлова. Помогите решить на Pascal
begin Writeln('Год Запас рыбы,т. Улов,т'); zapas := perv_zapas; for year := 1 to 20 do begin zapas := zapas * (1 + percent / 100); if zapas - plan < 250 then ulov := zapas - 250 else ulov := plan; zapas := zapas - ulov; if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1) else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана') end end.
<em><u>Результат выполнения программы:</u></em> Год Запас рыбы,т. Улов,т 1 950.0 180.0 2 893.5 180.0 3 829.7 180.0 4 757.5 180.0 5 676.0 180.0 6 583.9 180.0 7 479.8 180.0 8 362.1 180.0 9 250.0 159.2 - меньше плана 10 250.0 32.5 - меньше плана 11 250.0 32.5 - меньше плана 12 250.0 32.5 - меньше плана 13 250.0 32.5 - меньше плана 14 250.0 32.5 - меньше плана 15 250.0 32.5 - меньше плана 16 250.0 32.5 - меньше плана 17 250.0 32.5 - меньше плана 18 250.0 32.5 - меньше плана 19 250.0 32.5 - меньше плана 20 250.0 32.5 - меньше плана