PascalABC.NET Определить 0 среди цифр четырехзначного числа.

[Aleks35]

Помогите решить задачку :
Определить, есть ли среди цифр заданного положительного четырехзначного числа цифра 0.

[denisbrain]

как вариант

var x:integer;
begin 
 if pos('0',inttostr(x))>0 then  // есть 
else  // нет 
end;

[denisbrain]

uses crt;

Function GetZeroINNumber(x:Integer):boolean;
var
    g:boolean;
begin
x:=10234;
g:=false;
  while x>0 do begin
     if (x mod 10)=0 then g:=true;
     x:=x div 10;
  end;
  result:=g;
end;

begin
 if GetZeroINNumber(1001) then Writeln('Yes')
 else Writeln('not')
  
end.

[Aleks35]

Оба варианта работают