FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
Profil andreutza43
Femeie
25 ani
Bacau
cauta Barbat
30 - 80 ani
FORUM / Forum Nou / 17  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{vct cu n numere naturale de maxim 9 cifre fiecare
sa se elemine din fiecare nr toate cifrele pare}
program saptesprezece;
type vector=array[1..100]of longint;
var x,y:vector;n,i:integer;
    a,s:longint;p:longint;
begin
write('n=');readln(n);
for i:=1 to n do begin
write('x[',i,']=');readln(x[i]);
end;
for i:=1 to n do
     begin
     a:=x[i];
     s:=0;
     p:=1;
     while a>0 do
           begin
           if a mod 10 mod 2 =1 then
              begin
              s:=s+p*(a mod 10);
              p:=p*10;
              end;
           a:=a div 10;
           end;
     y[i]:=s;
     end;
for i:=1 to n do
    write(y[i],' ');
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la