FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
sexy_andrea2006 pe Simpatie.ro
 | Femeie
24 ani
Sibiu
cauta Barbat
27 - 53 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|