Ответ(ы) на вопрос:
Гостьprogram pl;
var a,h,s:real;
begin
cls;
write('Введите основание и высоту труеглольника ');
readln(a,h);
S:=a/2*h;
write('площадь треугольника равна ',S);
end. Вроде так, если вам нужна программа
Не нашли ответ?
Похожие вопросы