Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
Номер 3
c=b-a
c
номер 4
ввод a,b
z
Если сверху стена и снизу стена
то
нц пока справа свободно
вправо
кц
иначе
нц пока слева свободно
влево
кц
все
..... Вроде бы так если правильно условие понял
Вторая схема, так как АЕ = 1; ЕС=2 и так далее. В первом графике эти данные не совпадают.