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

Question

Информатика

Артемьюшка

18 июня, 13:16

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

+3

Ответы (1)

Знаете ответ на вопрос?

Фёдор · 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.