Question

язык–pascal
написать программу решения задачи
пользователь вводит 3 целых числа
программа выдаёт сообщение о том, что треугольник с такими сторонами существует (или нет)

Answer 1

• Program Brainy;
• Var a, b, c: integer;
• Begin
• Write ('Длины сторон a, b и с: ');
• Readln (a,b,c);
• if (a < b+c) and (b < a+c) and (c < a+b) then
• Writeln ('Треугольник существует') else
• Writeln ('Треугольник не существует');
• Readln
• end.