Question

Дети, как известно, все раньше и раньше начинают пользоваться интернетом. Теперь, когда у них возникают вопросы, они не бегут к родителям, а заходят в свою любимую поисковую систему и узнают ответ в интернете. Но вдруг они случайно найдут что-нибудь, что им знать пока рановато? Или, может быть, лучше не знать вообще никогда? В одной стране эту проблему решили очень просто: был создан список запрещенных для использования в интернете слов. Ведь очевидно, что статья, в которой упоминается какое-нибудь нехорошее слово, не может научить ребенка ничему хорошему. Любой сайт, содержащий хотя бы одно слово из этого списка, теперь подлежит мгновенной блокировке. Невинный ребенок никогда не натолкнется на что-нибудь, про что ему еще рановато знать — такой статьи просто не найдется в интернете. Но злобные сайтовладельцы придумали способ обойти этот запрет: если вместо некоторых букв написать внешне похожие на них цифры, то прочитать этот текст все равно будет можно, а робот, проверяющий сайты на пригодность, не распознает в слове запрещенное — ведь формально его нет на сайте.Ваша задача — помочь правительству этой страны защитить детей от вредной информации. Напишите программу, которая будет проверять, нет ли в данной строке запрещенного слова, учитывая возможное коварство сайтовладельцев. Известно, что сайтовладельцы иногда делают следующие замены: e ⇒3, o ⇒ 0, i ⇒ 1, t ⇒ 7, a ⇒ 4, s ⇒ 5.Входные данныеВ первой строке входных данных дана строка — текст с сайта. Во второй строке входных данных дана другая строка — запрещенное слово. Первая строка состоит из маленьких латинских букв и цифр, вторая строка состоит только из маленьких латинских букв. Длина каждой строки не превышает 100.Выходные данныеВыведите «YES», если запрещенное слово встречается как подстрока в строке с сайта, и «NO» иначе. Возможно, в строке с сайта некоторые буквы изначально были заменены на цифры в соответствии с приведенными выше правилами.Примерывходные данныеinah0leinthegroundthereliv3dah0bb1thobbitвыходные данныеYESвходные данныеwhath4v3igotinmypockethandsesвыходные данныеNO(Желательно на паскале, зарание спасибо)

Answer 1

Ответ:

var

a,b:string;

i:integer;

begin

readln(a);

readln(b);

For i:=1 to Length(a) do

 begin

 if (a[i]='3') then

 Begin

   Delete(a,i,1);

   InSert('e',a,i);

 End;

 if (a[i]='0') then

 Begin

   Delete(a,i,1);

   InSert('o',a,i);

 End;

 if (a[i]='1') then

 Begin

   Delete(a,i,1);

   InSert('i',a,i);

 End;

 if (a[i]='7') then

 Begin

   Delete(a,i,1);

   InSert('t',a,i);

 End;

 if (a[i]='4') then

 Begin

   Delete(a,i,1);

   InSert('a',a,i);

 End;

 if (a[i]='5') then

 Begin

   Delete(a,i,1);

   InSert('s',a,i);

 End;

 end;

if b in a then

 writeln('YES')

else

 writeln('NO')

end.

Answer 2

Задача

Вам необходимо написать программу, которая будет проверять, содержит ли данная строка запрещенное слово, учитывая возможные замены букв на цифры, согласно правилам, описанным в задаче.

Алгоритм решения

Для решения этой задачи можно использовать следующий алгоритм:

1. Прочитать входные данные: строку с текстом сайта и запрещенное слово. 2. Произвести замены букв на цифры в строке с текстом сайта, согласно правилам, описанным в задаче. 3. Проверить, содержит ли полученная строка запрещенное слово. 4. Если запрещенное слово найдено, вывести "YES", иначе вывести "NO".

Реализация на Pascal

program CheckForbiddenWord;

var
  siteText, forbiddenWord: string;
  i: integer;

begin
  // Чтение входных данных
  readln(siteText);
  readln(forbiddenWord);

// Замена букв на цифры
  for i := 1 to Length(siteText) do
  begin
    case siteText[i] of
      'e': siteText[i] := '3';
      'o': siteText[i] := '0';
      'i': siteText[i] := '1';
      't': siteText[i] := '7';
      'a': siteText[i] := '4';
      's': siteText[i] := '5';
    end;
  end;

// Проверка наличия запрещенного слова
  if Pos(forbiddenWord, siteText) > 0 then
    writeln('YES')
  else
    writeln('NO');
end.

Примеры

Пример 1: Входные данные: ``` inah0leinthegroundthereliv3dah0bb1thobbit ``` ``` inahole ``` Выходные данные: ``` YES ```

Пример 2: Входные данные: ``` whath4v3igotinmypockethandses ``` ``` hav3 ``` Выходные данные: ``` NO ```

Объяснение

В первом примере, запрещенное слово "inahole" встречается в строке "inah0leinthegroundthereliv3dah0bb1thobbit" после замены букв на цифры.

Во втором примере, запрещенное слово "hav3" не встречается в строке "whath4v3igotinmypockethandses" после замены букв на цифры.