1.Дано естественное число m. Подсчитать количество всех 0 в числе.2.Дано естественное

Var
m,n:integer;
Begin
WriteLn('m = ');
ReadLn(m);
n:=0;
While mgt;0 do
   Begin
   if m mod 10 = 0 then n:=n+1;
   m:=m div 10
   End;
WriteLn('Кол-во нулей в данном числе равно: ',n);
End.



Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
While ngt;0 do
   Begin
   Write(n mod 10);
   n:= n div 10
   End;
End.