ввести 3 стороны треугольника, вывести его площадь. (на языке паскаль)
ввести число , вывести квалратный корень.
Answers & Comments
kage1998
Program gt; var p,s,a,b,c:real; begin readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s); end. 2) program gt; var s,a:real' begin readln(a); s:=sqrt(A); writeln(s); end.
0 votes Thanks 0
egorkapomidorka7
я бы не сказала что это точное решение ведь есть теорема о сумме сторон треугольника сумму должна быть больше 3 стороны (так что здесь будет разветление ) кто еще запориться на этой задачи пишите в лс теперь я знаю как )
Answers & Comments
var p,s,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.
2)
program gt;
var s,a:real'
begin
readln(a);
s:=sqrt(A);
writeln(s);
end.