Задать вопрос
10 октября, 23:02

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

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

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

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

+1
Ответы (1)
  1. 11 октября, 01:44
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составте программу на Pascal. Сколько существует (невырожденных) треугольников периметра N с целыми длинами сторон? (Треугольник со ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы