Ответы
Ответ дал:
0
var
a,h,s: integer;
begin
writeln('введите основание ');
readln(a);
writeln('введите высоту треугольника') ;
readln(h);
S:=(1/2)*(a*h);
writeln('площадь равна ',s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
10 лет назад