Question

Паскаль. Создать программу.
Обчислити площу й периметр трикутника, якщо відомі три сторони.
Довжини сторін вводяться користувачем.
Вычислить площадь и периметр треугольника,если известны три стороны.
Длины сторон вводятся пользователем. Помогите пожалуйста

Answer 1

Ответ:

Program p1;

Var a,b,c,s,p,pp: real;

Begin

Writeln('Введите 1 сторону');

readln(a);

Writeln('Введите 2 сторону');

readln(b);

Writeln('Введите 3 сторону');

readln(c);

p:=a+b+c;

pp:=p/2;

s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));

Writeln('Периметр треугольника = ',p);

Writeln('Площадь треугольника = ',s);

End.