Треугольник задан длинами сторон А, В, С. Написать программу, определяющую, существует ли...

Question

Треугольник задан длинами сторон А, В, С. Написать программу, определяющую, существует ли данный треугольник. Для решения этой задачи использовать сложные логические условия. Программа должна иметь дружественный интерфейс. Протес-тировать программу для следующих исходных данных:
а) A=3, B=4, C=5
б) A=1, B=1, C=1
в) A=0, B=4, C=5
г) A=-3, B=6, C=5
д) A=2, B=1, C=8

Answer 1

Program a_1;
var A,B,C:integer; 
begin 
writeln('Введите стороны треугольника');
readln(A,B,C);
if (A+B>C) and (A+C>B) and (C+B>A)
then 
begin 
writeln('Треугольник существует');
writeln;
end
else 
writeln('Треугольник не существует');
writeln;
end.