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.