Найти площадь равнобедренного треугольника по длине основания и высоте, проведённой к нему (Pascal).

Площадь треугольника равна половине произведения основания на высоту: \(S = \frac{1}{2} a h\).
Программа на Pascal:
program AreaTriangle;
var a, h, S: real;
begin
write('Введите основание: ');
readln(a);
write('Введите высоту: ');
readln(h);
S := 0.5 * a * h;
writeln('Площадь = ', S:0:2);
end.

0 0 Пожаловаться