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

Question

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

Answer 1

var

 a,b:longint;

begin

 readln(a,b);

 while a>0 do

 begin

   if a mod 10=b then

  begin

   writeln('Est');

   halt;

 end;

 a:=a div 10;

end;

writeln('Net');

end.