Question

Решите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Задача №1. Периметр треугольника равен Р, длина одной стороны равна А, а другой - В. Найти длину третьей стороны. Задача №2. Длина стороны треугольника равна А, периметр равен Р, длины двух других сторон равны между собой. Найти эти длины.

Answer 1

Program zadanie_1;
Var a,b,c,p:real;
Begin
 Writeln('Формула нахождения P треугольника: P=A+B+C');
 Writeln('Введите значения P,A,B');
 Readln(p,a,b);
 c:=p-a-b;
 Writeln('C=',c);
End.

Program zadanie_2;
Var a,b,c,p:real;
Begin
 Writeln('Формула нахождения P треугольника: P=A+B+C');
 Writeln('Введите значения P,A');
 Readln(p,a);
 b:=(p-a)/2;
 c:=b;
 Writeln('C=',c);
 Writeln('B=',b);
End.