Question

Написать программу на pascal, которая определяет, существует ли треугольник со сторонами A,B,C,зная, что сумма двух сторон треугольника всегда больше третьей

Answer 1

program raf105;

var

 a,b,c: integer;

 x: boolean;

begin

 x:= True;

 write('Введите 3 числа через пробел: ');

 readln(a,b,c);

 if a+b < c

   then x:= False;

 if a+c < b

   then x:= False;

 if b+c < a

   then x:= False;

 if x

   then writeln('Треугольник существует')

   else writeln('Треугольника не существует');

end.

PascalABC 3.4.2