Дано натуральное число. Верно ли, что в нет цифры b? — Pascal(Паскаль)-CF

Программа

var
  x:longint;
  b:0..9;
begin
  repeat
    write('Натуральное число=');
    readln(x);
  until x>0;
  repeat
    write('Цифра b=');
    readln(b);
  until b in [0..9];
  while (x<>0) and (x mod 10<>b) do
    x:=x div 10;
  if x=0 then
    writeln('В числе нет такой цифры')
  else
    writeln('В числе есть такая цифра');
end.

Leave a Comment