Составить программу расчета внесения известкового удобрения по формуле:...

Question

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

Answer 1

Var
    H, B, K, P: real;

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