Question

Как в паскале удалить цифру из числа? Какая для этого команда? :)

Answer 1

var a,b:integer;
c:string;
begin
read(a,b);
while (a<>0) do begin
if a mod 10 <> b then c+=inttostr(a mod 10);
a:=a div 10;
end;
for a:=length(c) downto 1 do
write(c[a]);
end.