fork download
  1. program TriangleExistence;
  2.  
  3. uses
  4. SysUtils;
  5.  
  6. var
  7. a, b, c: Real;
  8.  
  9. begin
  10. Write('Введите сторону a: ');
  11. ReadLn(a);
  12. Write('Введите сторону b: ');
  13. ReadLn(b);
  14. Write('Введите сторону c: ');
  15. ReadLn(c);
  16.  
  17. Writeln('Исходные данные: a = ', a:0:2, ', b = ', b:0:2, ', c = ', c:0:2);
  18.  
  19. if (a + b > c) and (a + c > b) and (b + c > a) then
  20. Writeln('Треугольник с такими сторонами существует.')
  21. else
  22. Writeln('Треугольник с такими сторонами не существует.');
  23. end.
  24.  
Success #stdin #stdout 0.01s 5288KB
stdin
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
Введите сторону a: Введите сторону b: Введите сторону c: Исходные данные: a = 7.00, b = 1.00, c = 1.00
Треугольник с такими сторонами не существует.