Question

Va rog ajutor!!! pentru cei ce se pricep la informatica!!!

Answer 1

rezolvari exercitiul 2

prima cerinta

K=5
M=38
N=3

S==46

a doua cerinta:

program aria;

var a,b,c,p,aria:real;
begin
{ pentru testare 5 9 5}
a:=5;b:=9;c:=5;
{semiperimetrul}
p:=(a+b+c)/2;
{aria}
aria:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Aria=',a:5:2);readln;
end.

pentru valorile testate 
rezultat afisat

Aria= 5.00