Информатика
5. Напишите программу, которая вводит трёхзначное число и десятичную цифру. Определить, входит ли эта цифра в десятичную запись введённого числа. — Правильный ответ на вопрос найдете ниже

Ответ: //PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)var  a,b,i: integer;  f:boolean;begin  f:=false;  readln(a);  readln(b);  for i:=1 to 3 do begin    if a mod 10 = b then f :=true;    a:=a div 10;  end;  if f then writeln(‘входит’)    else writeln(‘Не входит’);end.Тестовое решениедля a=123 и b =31233входитДля а = 123 и b = 51235Не входит