8,1,2!!!!!!!!!!!!!!!!!!!!!!!

Question

8,1,2!!!!!!!!!!!!!!!!!!!!!!!

---

Answer 1

8)
a:=20;
b:=25;
ac:=40-25;
c:=15;
1)
a:=3;
b:=8;
a:=8-3*2;
a:=2;
b:=24/2*4:
b:=48;
2)
Var
a,b,c,p,s:real;
Begin
Writeln('Enter A,B,C');
Readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.

Comments

//#TupaMASLA4