Question

Se citeşte un număr natural nenul n, de maxim 8 cifre, de la tastatură. Scrieţi un
program care construieşte şi afişează numărul obţinut prin eliminarea cifrelor
impare din numărul citit iniţial. Dacă numărul nu conţine nicio cifră impară se va
afişa mesajul „Nimic de eliminat!”.
În limbajul Pascal, vă rog!!

Answer 1

Răspuns:

program EliminareCifreImpare;

var a,b,i,c,n,e:integer; v: array[1..8]of integer;

begin

 write('n='); read(n);

 a:=n;

 e:=0; b:=0;

 while (a<>0) do

   begin

     c:=a mod 10;

     inc(b); v[b]:=c;

     if (c mod 2=1) then e:=1;

     a:=a div 10;

   end;

 if e=0 then writeln('Nimic de eliminat!')

 else

   begin

     a:=0;

     for i:=b downto 1 do

         if v[i] mod 2=0 then a:=a*10+v[i];

     writeln('Dupa eliminarea cifrelor impare: ',a);

   end;

end.

Explicație: