Question

Alcatuiti un program definind în el o procedură pentru calcul ariei si perimetrul ale unui triunghi cu laturile:A,B,C.Unde s:=1/2AB si P=A+B+C

Answer 1

Program P7;
var a, b,c, p: integer;
s:real;
begin
wreteln (' a, b,c') ;
readln (a, b, c );
p:=a+b+c
s:= 1/2*a*b
writeln ('s=',s);
writeln (' p=',p);
readln;
end.