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

Question

Информатика

Кононка

24 ноября, 18:56

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

+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.