Напишите процедуру,удаляющую в числе заданную цифру Обязательно через процедуру Пример...

Question

Напишите процедуру,удаляющую в числе заданную цифру Обязательно через процедуру Пример Входные данные:35932 Цифра:3 Выходные данные:592 Срочно, 80 баллов

Answer 1

var a,n: integer;

procedure del (a,n:integer);

var b:integer;

begin

b := 0;

while a > 0 do

begin

if a mod 10 <> n then b := b * 10 + a mod 10;

a := a div 10

end;

while b > 0 do

begin

a:= a * 10 + b mod 10;

b := b div 10

end;

writeln(a)

end;

begin

readln(a);

readln(n);

del(a,n)

end.