Программа чисто математическая, треугольник не может существовать если сумма двух его сторон меньше третьей стороны (например 27<12+14 условие не выполняется 27 на самом деле больше 26 а значит треугольник со сторонами 12 14 27 не может существовать) теперь о площади, площадь тут мы можем найти по формуле Герона эта формула используется когда нам известны все стороны. Я скинул два скрина на первом программа выводит что треугольник не существует, а следовательно программа останавливается условием halt и не на ходит площадь, а на втором скрине программа выводит что такой треугольник существует и находит его площадь.
теперь о площади, площадь тут мы можем найти по формуле Герона эта формула используется когда нам известны все стороны.
Я скинул два скрина на первом программа выводит что треугольник не существует, а следовательно программа останавливается условием halt и не на ходит площадь, а на втором скрине программа выводит что такой треугольник существует и находит его площадь.
Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение: