Составте программу на Pascal.

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

Входные данные. С клавиатуры вводится число N (1<=N<=1000)

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

Question

Информатика

Надена

11 марта, 17:47

Составте программу на Pascal.

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

Входные данные. С клавиатуры вводится число N (1<=N<=1000)

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

+5

Ответы (1)

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

Венедиктыч · 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
writeln (k,' treugolnikov') ;

writeln;

End.