Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.