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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.