Сколько существует невырожденных треугольников периметра с целыми длинами...

Question

Сколько существует невырожденных треугольников периметра с целыми длинами сторонТреугольник со сторонами называется невырожденным если из отрезков длины его можно составить
Входные данные С клавиатуры вводится число
Выходные данные Программа выводит число таких треугольников.

Answer 1

Var k, n,a,b,c:integer;
Begin
  read(n);
 
  for a := 1 to n do begin
    for b := a to n - a do begin
      c := n - a - b;
      if (c>=a) and (c>=b) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
        k := k + 1;
    end;
  end;
  writeln(k);
End.

Comments

Правда не уверенна что удалила все дубликаты, но вроде удалила