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

Входные данные С клавиатуры вводится число

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

Question

Информатика

Таля

14 октября, 21:41

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

Входные данные С клавиатуры вводится число

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

+4

Ответы (1)

Знаете ответ на вопрос?

Декабрена · 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.