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

Извлечь из записи целого числа нули.
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;


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;
можно эту же програму переделать, с циклом 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;