var
a,b,c,P,p2,S,Ha,Hb,Hc:real;
begin
writeln('Введите значение стророны a');
readln(a);
writeln('Введите значение стророны b');
readln(b);
writeln('Введите значение стророны c');
readln(c);
P:=a+b+c;
p2:=P/2;
S:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
Ha:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/a;
Hb:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/b;
Hc:= 2*sqrt(p2*(p2-a)*(p2-b)*(p2-c))/c;
writeln('Периметр треугольника P = '+P);
writeln('площадь треугольника S = '+S);
writeln('высота треугольника Ha = '+Ha);
writeln('высота треугольника Hb = '+Hb);
writeln('высота треугольника Hc = '+Hc);
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 программа напечатает "Нет".
Vаr
b,i:integer;
begin
Reаdln(b);
for i:=5 to b do
writeln('Куб числа ',i,' = ',powеr(i,3));
еnd