Сколько существует 
невырожденных
треугольников периметра 
с целыми длинами сторон
Треугольник со сторонами 
называется невырожденным
если из отрезков длины его можно составить
Входные данные С клавиатуры вводится число 
Выходные данные Программа выводит число таких треугольников.
Ответы на вопрос
Ответил archery
0
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.
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.
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
9 лет назад
Математика,
9 лет назад
Химия,
9 лет назад