program raf105;
var a,b,c,p,s:real;
begin
writeln('Введите длины сторон a, b, c');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ', s);
end.
Язык программирования PascalABC
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program raf105;
var a,b,c,p,s:real;
begin
writeln('Введите длины сторон a, b, c');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ', s);
end.
Язык программирования PascalABC