program HomeWork;
var a,b,c,P,Pp,S,Ha,Hb,Hc:real;
begin
write('Введите стороны треугольника a, b и c (числа через пробел): '); readln(a,b,c);
P:=a+b+c;
Pp:=P/2;
Ha:=2*sqrt(abs(Pp*(Pp-a)*(Pp-b)*(Pp-c)))/a;
Hb:=2*sqrt(abs(Pp*(Pp-a)*(Pp-b)*(Pp-c)))/b;
Hc:=2*sqrt(abs(Pp*(Pp-a)*(Pp-b)*(Pp-c)))/c;
S:=Hc*c/2;
writeln('Параметры треугольника со сторонами a=', a:0:3, ', b=', b:0:3, ' и c=', c:0:3, ':');
writeln('Периметр: ', P:0:3);
writeln('Площадь: ', S:0:3);
if Pp-a >= 0 then writeln('Высота, опущенная на сторону a: ', Ha:0:3)
else writeln('Высота, опущенная на сторону a (находится вне треугольника): ', Ha:0:3);
if Pp-b >= 0 then writeln('Высота, опущенная на сторону b: ', Hb:0:3)
else writeln('Высота, опущенная на сторону b (находится вне треугольника): ', Hb:0:3);
if Pp-c >= 0 then writeln('Высота, опущенная на сторону c: ', Hc:0:3)
else writeln('Высота, опущенная на сторону c (находится вне треугольника): ', Hc:0:3)
end.
4) ЕС-СВ-ВА=2+8+7=17
5) X=5
Объяснение:
4) Еще можно провести 3 дороги с Е, но они сразу будут большей длины. К 13 нужно будет добавить 3 или 7 - что заведомо больше, к 11 нужно добавить 8 или 7, что тоже заведомо больше. После ЕС можно провести дорогу СD, но она не проходит через В.
5) Можно составить уравнение выполнения команд. Неизвестное число икс значит (2*3+x+x+x)*3=63 и решим его. (6+3х)=63/3 6+3х=21 3х=21-6=15
х=15/3=5 (по условию больше или равно 2).
6) Вторая и третья строки программы говорят о том, что надо ввести с клавиатуры значения s и k. Пока Вы их не введете задача не решается (может быть масса вариантов чисел, которые при сравнении будут давать разные варианты). Например если оба числа или одно из них удовлетворяют условию (больше) программа напечатает "Да". Если s меньше или равно 5 и k меньше или равно 10 программа напечатает "Нет".
Объяснение:
В приложенном файле.
Не уверена что при загрузке сохранится его имя - Накладная.xlsx ( как написано в задании)