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

Question

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

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

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

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

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

Задать свой вопрос

Липовец Семён
Информатика
2019-08-15 23:47:09
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Найдите, растолкуйте и исправьте лексические оплошности(либо нарушения точности, однозначности) в

В чём необыкновенность тезисного плана ?

Для спаивания стекла с металлом частопользуются сплавом, в состав которого входят

на земляном участке размещаются сад и теплицы.площадь сада сочиняет 40% всего

procedure TFrmCalc.BtnPlusClick(Sender:

после двукратного увеличения цены на 25% банка сока стала стоить 3750

Найдите наивеличайшее и меньшее значение функции y=x на отрезке [a,b][0;4]

Мини-сочинение на тему quot;Что я сделал летомquot;К образцу: будка, и как

Помогите написать сочинение на казахском языке quot;Хлебquot; предложений 8-9

если бы в штатской войне в сша победили южане, что было

Диана Мальгинова · Answer 1 · 2019-08-15 23:51:26+3:00

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 (clt;a+b) and (alt;b+c) and (blt;a+c) and (a+b+c=n) then k:=k+1;
     writeln(k,' treugolnikov');
     writeln;
End.

О проекте

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

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