Program EX1; Var a,b,s,t:Integer; Begin Write ('Введите сумму двух чисел'); Read (s); Write ('Введите разность двух чисел'); Read (t); a:=(t+s)/2; b:=t-a; Write ('Числа равны','a=',a,'b=',b); End.
Я думаю,в пользовательском интерфейс компьютера будущего,будет управление голосовыми командами,а так же зрительными командами и движением рук.Не будут нужны старомодные мышки,клавиатуры и прочее.Что бы что-то перелистывать,искать и так далее,нужны будут только:руки,глаза и речь.Для доступа в систему возможно использование отпечатков пальцев или сетчатки.Будут сильные уровни защиты,информация не сможет утечь.Так же возможно изобретение новых вирусов.Например вирус который блокируют движение руками или голосовое управление.Так же будет придумано новые антивирусное ПО,которые будет удалять эти вирусы.
P.S-Исправь грамматические ошибки если,я не силен в русском языке.Смысл понятен,если что-то надо-добавь.
В корзине лежат 8 черных и 24 белых шаров. Сколько информации несет сообщение о том, что достали черный шар:
2. В корзине лежат 32 клубка шерсти. Среди них 4 красных. Сколько информации несет сообщение о том, что достали клубок красной шерсти?
3. В коробке лежат 64 цветных карандаша. Сообщение о том, что достали белый карандаш, несет 4 бита информации. Сколько белых карандашей было в коробке? 4. В ящике лежат черные и белые перчатки. Среди них 2 пары черных. Сообщение о том, что из ящика достали пару черных перчаток, несет 4 бита информации. Сколько всего пар перчаток было в ящике?
5. В классе 30 человек. За контрольную работу по математике получено 6 пятерок, 15 четверок, 8 троек и 1 двойка. Какое количество информации в сообщении о том, что Иванов получил четверку?
6. Известно, что в ящике лежат 20 шаров. Из них 10 черных, 5 белых, 4 желтых и 1 красный1. Какое количество информации несут сообщения о том, что из ящика случайным образом достали черный шар, белый шар, желтый шар, красный шар?
7. В течение четверти ученик получил 100 оценок. Сообщение о том, что он получил четверку, несет 2 бита информации. Сколько четверок получил ученик за четверть?
8. Для ремонта школы израсходовали белую, синюю и коричневую краски. Израсходовали одинаковое количество банок белой и синей краски. Сообщение о том, что закончилась банка белой краски, несет 2 бита информации. Синей краски израсходовали 8 банок. Сколько банок коричневой краски израходовали на ремонт школы?
9. В корзине лежат белые и черные шары. Среди них 18 черных шаров. Сообщение о том, что из корзины достали белый шар, несет 2 бита информации. Сколько всего в корзине шаров?
Var a,b,s,t:Integer;
Begin
Write ('Введите сумму двух чисел');
Read (s);
Write ('Введите разность двух чисел');
Read (t);
a:=(t+s)/2;
b:=t-a;
Write ('Числа равны','a=',a,'b=',b);
End.