Информатика: решение задачи на языке Паскаль. Текст задачи: даны три натуральных числа. Напишите программу, определяющую существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний)

неверно, так как если треугольника не существует - твоя программа ошибается!

скопировалось плохо, но работает. зато правильно

Спасибо, забыл поставить проверку, сейчас поправлю.

Поправил

Если текст не отформатируете сейчас, то потом либо модераторы предложат отформатировать, либо просто удалят ответ.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadInteger3('a b c =');  if (a+b>c) and (a+c>b) and (b+c>a) then    if (a=b) or (a=c) or (b=c) then      if (a=b) and (b=c) then Writeln('Треугольник равносторонний')      else Writeln('Треугольник равнобедренный')    else Writeln('Треугольник разносторонний')  else Writeln('Треугольник не существует')end.

var       i, a, b, c: integer;function check_is(a, b, c: integer): boolean;begin       if a >= b + c then check_is := false else        if b >= a + c then check_is := false else       if c >= a + b then check_is := false else              check_is := true;                   end;procedure check_how(a, b, c: integer);begin       if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else       if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else              writeln('разносторонний');       end;begin       writeln('Введите стороны треугольника');       read(a, b, c);       if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');              end.