Сделать задачу в Паскале (8 класс)

Question

Сделать задачу в Паскале (8 класс)

---

Answer 1

Ответ:

готово

Объяснение:

program triangle;

var a, b, c: real;

begin

 Write('Введите стороны треугольника через пробел:');

 ReadLn(a, b, c);

 if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then

   WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' существует!')

 else

   WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')

end.