Question

Se citesc n numare naturale. Sa se afiseze, pentru fiecare numar din sir, numarul obtinut prin eliminarea tuturor cifrelor 0. Algoritmul sa fie doar in pascal va rog nu si il alte limbaje de programare!

Answer 1

var c,n,nec:integer;   //c cifra de eliminat

                      //n numarul initial

                      //nec numar cu cifre eliminate

   rang:integer;

begin

writeln('numarul initial:');

read(n);

writeln('Cifra de eliminat :');

read(c);

nec:=0;

rang:=1;

while n>0 do

begin

if (n mod 10) <> c then  

begin          

nec:=rang*(n mod 10) + nec ;

rang:=rang*10;

end;

n:=n div 10;    

end;

writeln('Numarul obtinut prin eliminare cifra ',c,' este ',nec);

readln;

end.