Предмет: Информатика,
автор: terem
Сколько существует 
невырожденных
треугольников периметра 
с целыми длинами сторон
Треугольник со сторонами 
называется невырожденным
если из отрезков длины его можно составить
Входные данные С клавиатуры вводится число 
Выходные данные Программа выводит число таких треугольников.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: gtoropcin5
Предмет: Математика,
автор: Ksenyva