Помогите! Даю 35б. Программирование. PASCAL С клавиатуры вводятся 4 положительных числа –...

Question

Помогите! Даю 35б. Программирование. PASCAL
С клавиатуры вводятся 4 положительных числа – длины отрезков. Вывести на экран построчно сочетания длин отрезков, из которых нельзя составить треугольник.

Comments

Тут 4 варианта комбинаций 3 из 4х возможны. Для квждой нужно проверить выполнение неравенства треугольника.

---

Любая из сторон треугольника должна быть меньше суммы двух других

Answer 1

Var a,b,c,d:integer;
begin
readln(a,b,c,d);
writeln('Нельзя составить треугольник из:');
if (a+b<=c)or(a+c<=b)or(b+c<=a) then writeln(a,' ',b,' ',c);<br>if (a+b<=d)or(a+d<=b)or(b+d<=a) then writeln(a,' ',b,' ',d);<br>if (a+c<=d)or(a+d<=c)or(c+d<=a) then writeln(a,' ',c,' ',d);<br>if (b+c<=d)or(b+d<=c)or(c+d<=b) then writeln(b,' ',c,' ',d);<br>end.

Пример:
1 2 3 4
Нельзя составить треугольник из:
1 2 3
1 2 4
1 3 4