Из данного натурального числа удалить все цифры А — Pascal(Паскаль)

uses crt;
var n,m,k:longint;
    a,c:byte;
begin
clrscr;
repeat
write('Введите натуральное число, не более 2 147 483 647 n=');
readln(n);
until(n>=1)and(n<=2147483647);
repeat
write('Какую цифру удалить? a=');
readln(a);
until a in [0..9];
m:=0;{новое число пока 0}
k:=1;{степень первой =1}
while n>0 do{пока число не ноль}
 begin
  c:=n mod 10;{отделяем с конца по одной цифре}
  if c<>a then{если это не не заданная цифра}
   begin
    m:=m+c*k;{умножаем цифру на очередную стапень 10 и прибавлем к тому, что получилось раньше}
    k:=k*10;{увеличиваем степень 10}
   end;
  n:=n div 10;{берем число без последней цифры и все повторяем, пока число не кончится}
 end;
write(m);
readln
end.

Leave a Comment

− 2 = 4