Question

Программа pascalABC
Найти периметр треугольника , если треугольника не существует то вывести на экран: треугольника не существует.

Answer 1

var a,b,c: real;

begin

write('Введите стороны треугольника: ');

readln(a,b,c);

if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует')

else writeln('Периметр треугольника равен: ',a+b+c)

end.

Answer 2

var z,x,c: real;

begin

write('стороны треугольника: ');

readln(z,x,c);

if (z + x <= c) or (x + c <= z) or (z + c <= x) then writeln ('нет такого треугольника')

else writeln('Периметр треугольника = ',z+x+c)

end.