Предмет: Информатика, автор: gavrila1998

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

Ответы

Автор ответа: ivanpakalnishkis
0

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.

Интересные вопросы
Предмет: Химия, автор: cebotarevaveronika66
Предмет: Математика, автор: anastasiakisel215