Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатуры. Pascal abc.
(не копируйте с других источников, неправильно)

можно убрать х, то есть вместо него поставить а

то же самое

я просто использовал х, чтобы не "испортить" само число а

Спасибо огромное)

если он будет искать 0 в число 0 то не заработает приеем

это в соседней проге)

Мне нужно вам что то написать так как нужно написать не менее 20 символов)

Program n1;var a,n: integer;f: byte;beginf:=0;readln(a,n);while a<>0 dobeginif a mod 10=n then f:=1;a:=a div 10;end;if f=1 then write('цифра ',n,' присутствует в числе') else write('в числе нет цифры ',n);end.