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 ('Такой цифры нет'); { Вывод текста, если условие не соблюдено } end.
Осенью я ехала на дачу с семьёй отдыхать. И тут вижу кто-то рвёт все листья из деревьев , этот человек был в чёрном плаще и в остроконечной шляпе. Я сказала папе давай остановимся тут, не будем ехать на дачу . И папа ответил хорошо, давайте остановимся тут. Мы остановились не далеко от того места где я видела этого человека . И я сказала маме что хочу не много прогуляться и мама сказала иди только не далеко и я пошла в то место где я видела этого человека , не сказав об этом ни кому . Я пошла туда и увидела этого человека. Он куда то шёл и я пошла за ним . Вдруг вижу что этот человек хочет зайти в замок который шёл. Я была очень удивлена этим замком и чуть не ахнула от страха он был весь чёрный и высокий, наверное этажей сто. И на нём везде были нарисованы черепа . Этот человек зашёл в замок и я за ним. Изнутри замок был ещё хуже и страшнее чем снаружи . Там было полно летучих мышей и ходящих скелетов . Хорошо что я успела спрятаться за статуями иначе все. Статуи тоже двигались и шатались . Одно статуе зарычало на меня и я убежала дальше. Вхожу и вижу лабораторию ведьмы. Оказывается что это не человек а ведьма. Я зашла туда и спряталась за шкафом . И вижу тут ведьма кладёт в какой то котел листья которые она рвала. . Она сказала круцыо и вышла . Я подошла увидела книгу заклинаний. Вдруг пришла ведьма и сказала на меня заклинание бомба макси я успела убежать . Я успела прочитать заклинании из книги . Я притворилась перед ведьмой как будто я тоже злая . И она поверила мне . В руках у неё была волшебная палочка . Она положила в сторонку палочку . Потом она открыла шкаф . Там были коробки волшебных палочек . Она попросила меня взять палочку и я взяла одну палочку. Она не выбрала меня, я взяла вторую тоже нет , я взяла третью она выбрала меня . Потом я произнесла заклинание редукто она убежала . Потом она сказала заклинание круцыо и я у бежала . Потом я произнесла заклинание Авадакидавра и ведьма умерла. Вижу замок начал падать и я убежала из замка. Снаружи осень уже стала ещё красивее и лучше чем раньше. Я вернулась к семье и они на меня толпой: где я была? И тогда я сказала сесть им на скамейку и я начала рассказывать им подробно о своих приключениях.
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 ('Такой цифры нет'); { Вывод текста, если условие не соблюдено }
end.