begin
var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;
var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');
var Лет := 0;
while Запас >= Порог do
begin
Запас := Запас * Прирост - Отлов;
Inc(Лет);
if Лет > 1000 then
begin
Println('И на тысячу лет хватит!');
Exit
end
end;
Println(Лет - 1)
end.
Введите х в процентах: 12.5Введите A, B, C в тоннах: 300 90 753
Кластер – это минимальный объем дискового пространства, который может использоваться для хранения файла. Размер кластера раздела жесткого диска может варьироваться в зависимости от операционной системы и размера жесткого диска.