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

1

Ответы и объяснения

Лучший Ответ!
2013-10-24T19:17:05+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.

Правда не уверенна что удалила все дубликаты, но вроде удалила