Подскажите, как решить ** паскале? Участок сада треугольной формы с длинами границ a=3,...

Question

Подскажите, как решить на паскале?
Участок сада треугольной формы с длинами границ a=3, b=4, c=5. Найдите длину ограды и количество удобрений нужных для участка.

Comments

А какое количество удобрений нужно на единицу площади, на квадратный метр, например?

---

я еще раз пересмотрела условие, этого не сказано.

---

Ладно, пусть будет 1 кг на квадратный метр, если что - измените.

---

В общем, эту переменную можно будет ввести с клавиатуры

---

спасибо огромное *-*

Answer 1

Program zadacha;
uses crt;
var a, b, c: integer;
u, p, s: real;
begin
clrscr;
write ('vvedite kolichestvo udobrenii, nuzhnyh dlya 1 m^2: ');
readln (u);
write ('vvedite storony uchastka: '); // таким образом можно ввести любые
// стороны, не только 3, 4 и 5
readln (a, b, c);
//  можно сразу написать a:=4; b:=3; c:=5;
p:=a+b+c;
writeln (' dlina ogrady - ', p:0:2);
p:=p/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); // вычисление площади по формуле Герона
u:=u*s;
writeln ('kolichestvo trebuemyh udobrenii - ', u:0:2);
readkey;
end.