Question

Написать програму в паскале.

1. Даны стороны треугольника а,в,с. Определить является ли это треугольником.

Answer 1

var a, b, c: integer;

begin

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

  readln(a, b, c);

  if (a+b<=c)or(b+c<=a)or(a+c<=b) then writeln('Не является')

  else writeln('Является');

end.