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

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

Задать свой вопрос
Володя Гулякин
Язык программирования?
Mihon Stonkus
Pascal
1 ответ

begin


 var (n, x) := ReadInteger2();


 


 while n gt; 0 do


 begin


   if n mod 10 = x then break


   else n := n div 10


 end;


 


 Print(n gt; 0 ? 'заходит' : 'не заходит')


end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт