Question

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

Answer 1

8)
a:=20;
b:=25;
a<b, c:=2*a-b;
c:=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.