Чуваки, помогите. Не шарю совершенно, надо написать программку и превосходнее с

Чуваки, помогите. Не шарю совершенно, надобно написать программку и лучше с разъясненьями.
Дано естественное число. Правильно ли, что в данном числе нет данной числа А (цифру А вводить с клавиатуры)

Задать свой вопрос
Сенгуров Ленька
Куда уж мне до вас! Взрослый дядька, а сидите тут
Рома Курбалев
Задание теснее не отредактировать. Принуждён покинуть настолько увлекательную беседу
Косоногов Андрей
Ох, эникейщик, язык меняется. Он же задавал вопрос школьникам, которых такое воззвание не огорчает.
Виталий Цыбакин
Обращение автора вопроса, действительно, неуместно. Однако и "воспитательная беседа" не многим превосходнее.
Илюша Эбель
Лучше, на мой взгляд, никого не обижать.
1 ответ
Требуемая программка:
var n,a: longint; b: boolean;
begin
readln(n);
readln(a);
b:=false;
while ngt;0 do
 begin
 if n mod 10 = a then b:=true;
 n:=n div 10;
 end;
if b 
 then writeln('В числе есть введенная цифра')
 else writeln('В числе нет введенной числа');
end.

Пример:
1236548
2
В числе есть введенная цифра
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт