Question

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

НА ПАСКАЛЕ! ПОЖАЛУЙСТА!

Answer 1

var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
writeln('План можно выдерживать', i, ' лет' );
end.

Answer 2

Но вводил 1 и 2, тоже 0 показало

Answer 3

введи так что бы первое число было больше второго

Answer 4

Ввод а 4996 ввод б 1819 Вывод 3
Ввод а 1128 ввод б 577 Вывод 2
Ввод а 2978 ввод б 1176 Вывод 3
Ввод а 1042 ввод б 598 Вывод 2
Ввод а 3233 ввод б 1128 Вывод 3

Answer 5

Но вдруг у нас училка не поймет то что надо чтобы было больше, как это обозначить чтобы первое было больше второго?

Answer 6

если первое меньше второго то план нельзя выполнить т к рыбы меньше чем нужно