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:
3) Компьютерная мышь
Задание #2
2) Графический 3) SILK-интерфейс 4) Командный
Задание #3
1) Комбинации символов
Задание #4
1) Пользовательский интерфейс
Задание #5
Знание
Задание #6
1.B
2.D
3.C
Задание #7
1) WIMP-интерфейс
Задание #8
2) Окно 4) Манипулятор
Задание #9
2) Голосовой
Задание #10
4) SILK
2 часть теста
Задание 1
4) Панели задач
Задание 2
2) Ярлык
Задание 3
1) Главное меню
Задание 4
?
Задание 5
2) Рабочий стол
Задание 6
2) Окно
Задание 7
Задание 8
2) Меню
Задание 9
3) WIMP
Задание 10
2) Диалоговые окна
Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -> x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -> x > a).Count);
end.
Внутренним железом - хотя бы для того, чтобы его запустить.Операционной системой - чтобы на нем можно было хоть что-то делать.Монитором - чтобы видеть, что происходит.Мышью и клавиатурой - для удобства использования.