Пользователь вводит натуральное число. Программа определяет, есть ли среди его цифр...

Question

Пользователь вводит натуральное число. Программа определяет, есть ли среди его цифр единица. (Через Паскаль)

Answer 1

Var
  x: integer;
  f: boolean = false;
begin
  write('Введите число = ');
  readln(x);
  while (x<>0)  do
  begin
    if (x mod 10 = 1) then
    begin
      f := true;
      break;
    end;
    x := x div 10;
  end;
 
  if f then
    writeln('Есть')
  else
    writeln('Нет');
end.