Турбо Паскаль

[PinkPonch]

Помогите пожалуйста написать прогу на турбо паскале

Ежегодный прирост рыбы в пруду составляет 15%.Запасы рыбы оценены в А тонн.Ежегодный план отлова В тонн.Наименьший запас рыбы, ниже которого запас уже не восстанавливается, составляет С тонн. Сколько лет можно выдерживать заданный план отлова? Значения А,В,С запросить.В программе использовать цикл с постпроверкой условия.

[Mr.Replica]

понч,чтоб поговорить,не гулять,епаца,подарков не дарить,может где-то в колхозе можно найти доярку.

[JnK]

Если правильно понял условие задачи, то вот:

program Pryd;
var
a,b,c,
i,y:integer;
t:Extended; // дробное число
begin
i:=0;
y:=0;
Write('Количиство Рыбы: ');
ReadLn(A);
Write('Отлов Рыбы: ');
ReadLn(B);
Write('Порог "спаривания" Рыбы: ');
ReadLn(C);
While a>1 do
begin
inc(y);
t:=a/100*15; // Вычисляем 15% от всей рыбы
a:=a-b; // вычитаем улов
WriteLn('A - B :', a); // Выводим отлов
if a>c then
begin
a:=round(a+t); // если рыбы больше минимума, добавляем 15% и округляем
WriteLn('A + % :', a); // выводим %
inc(i); // увеличиваем счетчик годиков
end;
end;
writeln('План лет: ',i);
writeln('Рыба исчезнет лет: ',y);
readln; // Ожидаем нажатия Enter для выхода
end.