Даны положительные целые числа A, B, C. Выяснить - вопрос №681266 от Kamper5678 24.04.2020 21:31

Question

Другие предметы: Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C. (программа Паскаль)

Kamper5678 · Answer

USES Crt; VAR   A, B, C: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три числа');
   ReadLn(A,B,C);
  IF (A+B>C) AND (A+C>B) AND (B+C>A) Then WriteLn('Треугольник построить можно')
                                                                           Else WriteLn('Треугольник построить нельзя');
END.