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
<span>Нельзя составить треугольник из:
1 2 3
1 2 4
1 3 4</span>
Манипулятор (мышь) ну или другие указывающие устройства
1 бит. Т.к. всего цветов фигур 2, то i=1 бит.
Var
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(50,1,999);
a.Take(40).Println;
a.Skip(40).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 679
55
195
206
597
664
762
201
452
965
298