function Square(A, B: real): real;
begin
Square := A*B/2;
end;
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу нахождения площади прямоугольного треугольника и оформите в виде процедуры и функции в Паскале.
function Square(A, B: real): real;
begin
Square := A*B/2;
end;
Объяснение: