Program zadacha1;
Var a,b,c,p,s:integer;
Begin
Readln(a,b,c);
p:= (a+b+c)div 2;
S:= sqrt(p*(p-a)*(p-b)*(p-c) );
writeln(s);
end.
в чем проблема?
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.