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

Question

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

Comments

нет такой функции, какая задача?

---

Дано натуральное число а. Удалить все цифры b, введенные с клавиатуры.

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.