Сколько существует [tex]([/tex]невырожденных[tex])[/tex] треугольников периметра [tex]N[/tex] с целыми длинами сторон[tex]?[/tex] [tex]([/tex]Треугольник со сторонами [tex]a,b,c[/tex] называется невырожденным[tex],[/tex] если из отрезков длины [tex]a,b,c[/tex] его можно составить[tex].)[/tex]
Входные данные[tex],[/tex] С клавиатуры вводится число [tex]N[/tex] [tex](1 \leq N \leq 1000)/[/tex]
Выходные данные[tex],[/tex] Программа выводит число таких треугольников.
Входные данные[tex],[/tex] С клавиатуры вводится число [tex]N[/tex] [tex](1 \leq N \leq 1000)/[/tex]
Выходные данные[tex],[/tex] Программа выводит число таких треугольников.
More Questions From This User See All
Answers & Comments
Verified answer
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.