Дано натуральное число N. Определить, есть ли в данном числе цифра A

maxxons

Дано натуральное число N. Определить, есть ли в данном числе цифра A.
2 ответа

maxxons

uses crt;
var  a,n: integer;
begin
 write('Число, A: ');
 readln(n,a);
 while (n<>0) do
  begin
   if ((n mod 10)=a) then
    begin
     writeln('Есть');
     halt;
    end;
   n:=n div 10;
  end;
 writeln('Нет');
 readln;
end.


maxxons

Я тебя люблю )) Выручил