Question

Помогите! Даю 35б. Программирование. PASCAL С клавиатуры вводятся 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);
if (a+b<=d)or(a+d<=b)or(b+d<=a) then writeln(a,' ',b,' ',d);
if (a+c<=d)or(a+d<=c)or(c+d<=a) then writeln(a,' ',c,' ',d);
if (b+c<=d)or(b+d<=c)or(c+d<=b) then writeln(b,' ',c,' ',d);
end.

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