Ответ на Pascal:
var a,b,c,p:real;
begin
writeln('Введи длины сторон a, b и c');
readln(a,b,c);
p:=(a+b+c)/2;
writeln('Площадь этого треугольника = ', sqrt(p*(p-a)*(p-b)*(p-c)));
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ на Pascal:
var a,b,c,p:real;
begin
writeln('Введи длины сторон a, b и c');
readln(a,b,c);
p:=(a+b+c)/2;
writeln('Площадь этого треугольника = ', sqrt(p*(p-a)*(p-b)*(p-c)));
end.