Ответы и объяснения

2013-02-09T09:29:07+00:00

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

 

 

Вроде так, если вам нужна программа