Извлечь из записи целого числа нули.

Извлечь из записи целого числа нули.
3 ответа

function f (a: integer) : integer; 
var x, res: integer; 
begin
  x:=1;
  res:=0;
  while(a>0) do
  begin   
  if (a mod 10 )>0 then
    begin
    res:=res+(a mod 10 )*x;
    x:=x*10;
    end;
  a:=a div 10;
  end;
  f:=res;
end;


<div> <pre class="prettyprint linenums">function f (a: integer) : integer; var x, res: integer; begin   x:=1;   res:=0;   while(a>0) do   begin     if (a mod 10 )>0 then     begin     res:=res+(a mod 10 )*x;     x:=x*10;     end;   a:=a div 10;   end;   f:=res; end;</pre> </div>
можно эту же програму переделать, с циклом repeat... until ??


можно эту же програму переделать, с циклом repeat... until ??
function f (a: integer) : integer; 
var x, res: integer; 
begin
  x:=1;
  res:=0;
  repeat
  if (a mod 10 )>0 then
    begin
    res:=res+(a mod 10 )*x;
    x:=x*10;
    end;
  a:=a div 10;
  until a=0;
  f:=res;
end;