Составить программу расчета нормы полива в теплице (л/м) по формуле: m=0,1hd* где h – высота слоя грунта, см; d – объемная масса грунта, г/см3; w1 – рекомендуемая относительная влажность грунта, % ппв; w2 – фактическая относительная влажность грунта, % ппв. фактическая относительная влажность грунта изменяется в пределах от 50 до 60 % ппв с шагом 1 %.

283

361

Посмотреть ответы 2

Ответы на вопрос:

vvvlll1

Информатика

4,6(87 оценок)

//если я правильно понял, то var d, h, w1, w2: integer; function readvalue(s: string): integer; var t: integer; begin write(s, ' '); readln(t); result : = t; end; begin h : = readvalue('высота слоя грунта: '); d : = readvalue('объём грунта: '); w1 : = readvalue('рек. влажность грунта: '); writeln('вл. грунта | норма полива'); for w2 : = 50 to 60 do writeln(w2: 9, '% | ', 0.1*h*d*(w1-w2), ' л/м'); end.