ДАЮ 30 БАЛЛОВ! Написать программу: 1. для нахождения периметра произвольного...

Question

ДАЮ 30 БАЛЛОВ! Написать программу: 1. для нахождения периметра произвольного треугольника 2. Для нахождения площади параллелограмма Для проверки правильности программы можно использовать онлайн компилятор http://primat.org/index/0-128

Answer 1

Ответ: Периметр треугольника:

Площадь прямоугольного треугольника:

var

 a, b, c: real;

 p, s: real;

begin

 // Задача 1 \/

 Write('Введите 3 стороны треугольника: ');

 readln(a, b, c);

 p := a + b + c;

 writeln('p=', p);

 

 //Задача 2 \/

 Write('Введите 2 катета: ');

 readln(a, b);

 s := 0.5 * a * b;

 writeln('s=', s:0:2);

end.