Program lol;
Var a, b, c, s, p:real;
begin
write('Введите длины трех сторон треугольника: ');
readln(a,b,c);
p := (a + b + c) / 2;
s := sqrt(p * (p-a) * (p-b) * (p-c));
writeln('Площадь тр-ка S = ', s);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Паскаль. Написать программу для нахождения площади прямоугольника. формулы y1=(x+y)/3-t
Program lol;
Var a, b, c, s, p:real;
begin
write('Введите длины трех сторон треугольника: ');
readln(a,b,c);
p := (a + b + c) / 2;
s := sqrt(p * (p-a) * (p-b) * (p-c));
writeln('Площадь тр-ка S = ', s);
end.
Объяснение: