Натали
Светлана Быковская
m := 1; r := 0; while (n > 0) do begin if (n div 10 <> a) then r := r + m * (n div 10); m := m * 10; end; n := n mod 10; end;
m := 1; r := 0; while (n > 0) do begin if (n div 10 <> a) then r := r + m * (n div 10); m := m * 10; end; n := n mod 10; end;