Программа pascalABC Найти периметр треугольника , если треугольника не существует то вывести на экран: треугольника не существует.
По каким данным искать периметр? Стороны, углы, ещё что-нибудь?
Будет по сторонам...
var a,b,c: real;
begin
write('Введите стороны треугольника: ');
readln(a,b,c);
if (a + b
else writeln('Периметр треугольника равен: ',a+b+c)
end.
Спасибоббоб
var z,x,c: real;
write('стороны треугольника: ');
readln(z,x,c);
if (z + x <= c) or (x + c <= z) or (z + c <= x) then writeln ('нет такого треугольника')</p>
else writeln('Периметр треугольника = ',z+x+c)