Відповідь:
uses crt; {модуль CRT, для красоты}
var x,y:integer; {описание переменных}
begin
write('Введи трехзначное число:'); {вывод текста на экран}
readln(x); {Чтение данных}
write('Введи любую цифру:'); {Вывод текста на экран}
readln(y); { Чтение данных }
if (x<100) or (x>999) or (y<0) or (y>9) {проверка условий}
then writeln('ERROR!') {Вывод текста, если условие соблюдено}
else {Вариант, если в начале все числа введено верно}
if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then
writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено}
else writeln ('Такой цифры нет'); { Вывод текста, если условие не соблюдено }
Пояснення:
оглавление нужно? все равно напишу: Век роботов
Объяснение:
В последнее десятилетие ИИ или же искусственный интеллект стал приобретать всё больше влияние. В развитых странах потихоньку появляются или уже появились роботы. С одной стороны звучит неплохо, человек вступил в новую эпоху эволюции, но с другой стороны, как это обернётся? В первую очередь ИИ создана для того, чтобы облегчить жизнь людей, заменяя их тем что, выполняя всю работу за них. Есть много фильмов про восстания роботов. Может ли повториться один из сценариев фильма в реальности? Возможно. Эти роботы могут дать большой толчок в развитии человека, но есть и главный минус: тотальная слежка. Производители будут ставить скрытые камеры, чтобы отслеживать личную жизнь человека, что ему это не понравится. Такие действия могу привести к тоталитарному режиму по всему миру и не останется свободного пространства для людей. Они не смогут побыть наедине, поговорить лично с кем-то, ведь их всегда будет слышно и видно.
Человечество хочет побыстрее развиться во всех сферах, но стоит обдумать все последствия, и, возможно, если всё это проигнорировать, то это может обернуться к нам боком.