Составте программу на Pascal. Сколько существует (невырожденных) треугольников…

Question

64

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

в избранное ссылка

Знаете ответ?

quanticm · Accepted Answer

55

quanticm

10 апреля 2023

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

комментировать

в избранное ссылка отблагодарить