Составить алгоритм и написать решение задачи на Паскале: Даны 3 положительных числа. Найти периметр и площадь треугольника с данными сторонами.

Question

Информатика

Евгеня

19 октября, 19:03

Составить алгоритм и написать решение задачи на Паскале: Даны 3 положительных числа. Найти периметр и площадь треугольника с данными сторонами.

+4

Ответы (1)

Знаете ответ на вопрос?

Рипсимия · Answer 1

Program treyg;

var a, b, c, p:integer; s, pol:real;

begin

readln (a, b, c) ;

p:=a+b+c;

pol:=p/2;

s:=Sqrt (pol * (pol-a) * (pol-b) * (pol-c)) ;

Writeln ('Площадь=', s) ;

Writeln ('Периметр = ', p)

end.