Ежегодный прирост рыб в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн. Подсчитать , сколько лет можно выдерживать заданный план ? НА ПАСКАЛЕ! ПОЖАЛУЙСТА!
Var a,b:real; i:integer; begin i:=0; readln(a,b); while bbegin a:=a*1.15; a:=a-b; i:=i+1; end; writeln('План можно выдерживать', i, ' лет' ); end.
1999999999999999999 99999999999999999999 0 План можно выдерживать0 лет Вот че пишет
правильно пишет 1999999999999999999*1,15< 99999999999999999999
Нет, я ввел эти 2 значения.
ты ввел 1999999999999999999 99999999999999999999?
да
Но вводил 1 и 2, тоже 0 показало
введи так что бы первое число было больше второго
Ввод а 4996 ввод б 1819 Вывод 3 Ввод а 1128 ввод б 577 Вывод 2 Ввод а 2978 ввод б 1176 Вывод 3 Ввод а 1042 ввод б 598 Вывод 2 Ввод а 3233 ввод б 1128 Вывод 3
Но вдруг у нас училка не поймет то что надо чтобы было больше, как это обозначить чтобы первое было больше второго?
если первое меньше второго то план нельзя выполнить т к рыбы меньше чем нужно