Question

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

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

 

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

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

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<a+b) and (a<b+c) and (b<a+c) and (a+b+c=n) then k:=k+1;
     writeln(k,' treugolnikov');
     writeln;
End.