Определите наименьшее натуральное число A, такое что выражение (x & 21 =0) + ( (x & 11 =0)⇒ (x & A≠ 0) )
тождественно истинно (то есть принимает значение 1 при любом натуральном значении переменной x)?

Var
A,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9:integer;
Begin
WriteLn('Введите число');
ReadLn(A);
While A>0 do
   Begin
   Case A mod 10 of
   0:B0:=B0+1;
   1:B1:=B1+1;
   2:B2:=B2+1;
   3:B3:=B3+1;
   4:B4:=B4+1;
   5:B5:=B5+1;
   6:B6:=B6+1;
   7:B7:=B7+1;
   8:B8:=B8+1;
   9:B9:=B9+1;
   End;
   A:= A div 10;
   End;
if (B0 = 3)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)then WriteLn('Верно')
else if (B1 = 3)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)then WriteLn('Верно')
else if (B2 = 3)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)then WriteLn('Верно')
else if (B3 = 3)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)then WriteLn('Верно')
else if (B4 = 3)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)then WriteLn('Верно')
else if (B5 = 3)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)then WriteLn('Верно')
else if (B6 = 3)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)then WriteLn('Верно')
else if (B7 = 3)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)then WriteLn('Верно')
else if (B8 = 3)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)then WriteLn('Верно')
else if (B9 = 3)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)then WriteLn('Верно')
else WriteLn('Не верно')
End.

1)область деятельности, в которой компьютеры используются в качестве инструмента, как для синтеза  изображений, так и для обработки визуальной информации, полученной из реального мира.
2)Компьютеры,телефоны ,для получения инфы и отбражения графики
3)это устройство для автоматического вычерчивания с больщой точностью рисунков,схем и т.п
4)Alt+Tab - Переключение между окнами 

Win+Tab - Переключение между окнами в режиме Flip 3D 
Win+Up - Развернуть окноWin+Down - Восстановить / Минимизировать окно 
Win+Left - Прикрепить окно к левому краю экрана 
Win+Right - Прикрепить окно к правому краю экрана 
Win+Shift+Left - Переключиться на левый монитор 
Win+Shift+Right - Переключиться на правый монитор 
Win+Home - Минимизировать / Восстановить все неактивные окна 
Win+Break(или Pause) - Запустить элемент Система из Панели Управления (пункт Свойства при нажатии правой кнопкой мыши на Компьютер в меню Пуск) 
Win+Space - Показать рабочий стол 
Win+B - Переход в область уведомлений(трей) 
Win+D - Свернуть окна или восстановить все окна 
Win+E - Запустить Проводник(Explorer) 
Win+F - Запустить встроенный диалог поиска Windows 
Win+Ctrl+F - Запустить Поиск по компьютеру из домена 
Win+F1 - Запустить встроенный диалог Windows: Справка и Поддержка 
Win+G - Отобразить гаджеты поверх всех окон 
Win+L - Блокировка рабочей станции(текущего сеанса пользователя) 
Win+M - Минимизировать все окна 
Win+P - Отобразить дополнительные опции дисплея (расширить рабочий стол на 2 монитор и т.п.) 
Win+R - Запустить диалоговое окно Выполнить 
Win+Т - Выбрать первый элемент в панели задач (Повторное нажатие переключает на следующий элемент, Win+Shift+T - прокручивает в обратном порядке) 
Win+U - Запустить Центр специальных возможностей (Ease of Access Center) 
Win+X - Запустить Mobility Center 
Win+цифра- Запустить приложение с панели задач (Win+1 запускает первое приложения слева, Win+2, второе, и т.к.) 
Win + "+" - Увеличить масштаб 
Win + "-" - Уменьшить масштаб 
Ctrl + колесо мыши (вверх\вниз) на рабочем столе - увеличить\уменьшить иконки рабочего стола.

В Проводнике (Explorer):
Alt+P - Показать / Скрыть Область предпросмотра

Панель задач:
Shift + щелчок на иконке - Открыть новое окно приложения 
Ctrl + Shift + щелчок по иконке - Открыть новое окно приложения с привилегиями администратора 
Shift + щелчок правой кнопкой на иконке - Показать меню приложения 
Shift + щелчок правой кнопкой на группе иконок - Показать меню, восстановить все / cвернуть все / Закрыть все 
Ctrl + щелчок по группе икнонок - Развернуть все окна группы

5)Вырезать, копировать ,вставить и т.п