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

Question

Составте программу на Pascal.

Сколько существует (невырожденных) треугольников периметра N с целыми длинами сторон? (Треугольник со сторонами a,b,c называется невырожденным, если из отрезков длины a,b,c его можно составить.)

Входные данные. С клавиатуры вводится число N (1<=N<=1000)</p>

Выходные данные. Программа выводит число таких треугольников.

Answer 1

Uses crt;
var a,b,c,k,n:integer;
Begin
     clrscr;
     Write('n='); readln(n);
     k:=0;
     for a:=1 to n do
         for b:=a to n do
             for c:=b to n do
             if (c     writeln(k,' treugolnikov');
     writeln;
End.