Паскаль
Герон
Что здесь неверно?
program Geron;
var a, b, c: integer; 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=', s);
readln
end.
Герон
Что здесь неверно?
program Geron;
var a, b, c: integer; 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=', s);
readln
end.
Answers & Comments
И чтоб не было некрасивого числа в конце допиши "writeln('площ. треуг.s=',s:3:2 );