[email protected] , ответ добавлен 21.03.2018 в 19:06

Var h,b,s:real;

begin
write('Введите основание = ');
readln(b);
write('Введите высоту = ');
readln(h);
s:=0.5*b*h;
writeln('Площадь треугольника = ',s:6:2);
end.

 0   

[email protected] , ответ добавлен 21.03.2018 в 19:04

var a,b,s,h: real; begin write ('введите длину основания'); read (b); write ('введите длину высоты'); read (h); s:=1/2*b*h; a:=sqrt(sqr(b)/2); writeln ('Площадь =',s); writeln ('Боковые стороны равны =',a); end.

 0