Question

Площадка в парке имеет форму треугольника с длинами сторон А, В, С. Надо засеять эту площадку газонной травкой. Сколько потребуется семян, если известно, что 1 кг. семян хватает, чтобы засеять 100 кв.м. в паскале, пожалуйста помогите

Answer 1

program travka;

uses

crt;

var

a, b, c, s, pp, k: real;

begin

writeln('Введите стороны a, b, c:');

readln(a, b, c);

if ((a > 0) and (b > 0) and (c > 0)) then

begin

pp := (a + b + c) / 2;

s := sqrt(pp * (pp - a) * (pp - b) * (pp - c));

k := s / 100;

writeln('Потребуется ', k, ' кг семян');

end

else

writeln('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');

readln;

end.