Помогите решить эту задачу в паскале!

Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников. (Вычисление площади оформить в виде под программы-функция или процедура).

Question

Информатика

Оза

25 октября, 18:40

Помогите решить эту задачу в паскале!

Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников. (Вычисление площади оформить в виде под программы-функция или процедура).

+3

Ответы (1)

Знаешь ответ?

Альберт · Answer 1

Function S_tr (a, b:integer) : real;

begin

S_tr:=a*b/2

end;

var a, b, c, d:integer;

s:real;

begin

s:=0;

read (a, b, c, d);

s+=S_tr (a, b);

s+=S_tr (c, d);

writeln (s);

end.