Составить программу расчета внесения известкового удобрения по формуле: Д=100*Н / (100-В) (100-К) П, где Н - полная норма СаСО3, т/га; В-влажность извести,%; К - количество недеятельных частиц,%; П - нейтрализующая способность СаСО3, %; Полная норма СаСО3 изменяется в пределах от 2 до 4 т/га с шагом 0,1 т

га

Question

Кируся

17 февраля, 02:04

+5

Ответы (1)

Знаешь ответ?

Элладий · Answer 1

Var

H, B, K, P: real;

begin

readln (H, B, K, P);

writeln ('Д = ', 100 * H / ((100 - B) * (100 - K) * P));

end.