Отлов рыбы. Подсчитать, сколько лет можно выдерживать заданный план

20.12.2013, 00:23. **Показов** 3487. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

@centrum · 20.12.2013, 02:05

Не знаю, вроде работает как надо.

Pascal

uses crt;
var b,n,i,year:integer; a:real;
begin
writeln('Ââåäèòå çàïàñ ðûáû');
readln(A);
writeln('Ââåäèòå åæåãîäíûé ïëàí îòëîâà');
readln(B);
  if A>B then
      begin
           inc(year);
           A:=A-B;
      end;
  for i:=1 to 99 do
        begin
              if (A+((A/100)*15)) > B then
                  begin
                       inc(year);
                       A:=A-B;
                  end
              else begin write('ýòîò ïëàí ñìîæåò âûäåðæàòü ëåò: ',year); break; end;
        end;
end.

Ma_ry
		1
	Отлов рыбы. Подсчитать, сколько лет можно выдерживать заданный план 20.12.2013, 00:23. Показов 3487. Ответов 1 Метки нет (Все метки) Составить программу, позволяющую решить задачу. 1. Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн. Подсчитать, сколько лет можно выдерживать заданный план? Помогите, плиз) не знаю как делать=(((

	20.12.2013, 02:05

Опции темы

Отлов рыбы. Подсчитать, сколько лет можно выдерживать заданный план

Решение