Решите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Задача №1. Периметр треугольника равен Р, длина одной стороны равна А, а другой - В. Найти длину третьей стороны.
Задача №2. Длина стороны треугольника равна А, периметр равен Р, длины двух других сторон равны между собой. Найти эти длины.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад