Сколько существует [tex]([/tex]невырожденных[tex])[/tex] треугольников периметра

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

Задать свой вопрос
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 (cgt;=a) and (cgt;=b) and (cgt;0) and (a+bgt;c) and (a+cgt;b) and (b+cgt;a) then
        k := k + 1;
    end;
  end;
  writeln(k);
End.

Хачатуров-Тавризян Вера
Правда не уверенна что удалила все дубликаты, но вроде удалила
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт