Question

Из натурального числа удалить заданную цифру. Число и цифру вводить с клавиатуры. Например, задано число 1487. Требуется удалить из него цифру 4. Получится число 187. (For и While)

Answer 1

с использованием цикла WHILE:

var i,x,z:longint;

   y:byte;

begin

   i:=1;

   z:=0;

   write('Введите натуральное число: '); readln(x);

   write('Введите цифру, которую требуется удалить (0..9): '); readln(y);

   x:=abs(x);

   while x > 0 do begin

       if x mod 10 <> y then begin

           z:=z + i * (x mod 10);

           i:=i * 10;

       end;

       x:=x div 10;

   end;

   write(z);

end.

с использованием цикла FOR:

var x,z:string;

   y:char;

   i:byte;

begin

   write('Введите натуральное число: '); readln(x);

   write('Введите цифру, которую требуется удалить (0..9): '); readln(y);

   for i:=1 to length(x) do begin

       if x[i] <> y then z:=z + x[i];

   end;

   write(z);

end.