// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (x,y,z):=ReadReal3('Введите через пробел три числа:'); if (x+y>z) and (x+z>y) and (y+z>x) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Примеры Введите через пробел три числа: 2.34 5.18 9 Треугольник не существует
Введите через пробел три числа: 3 4 5 Треугольник существует
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y,z):=ReadReal3('Введите через пробел три числа:');
if (x+y>z) and (x+z>y) and (y+z>x) then Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Примеры
Введите через пробел три числа: 2.34 5.18 9
Треугольник не существует
Введите через пробел три числа: 3 4 5
Треугольник существует