➢ Bài 2: Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thên một số nguyên X vào mảng. Hẫy kiểm tra xem số X có trong mảng A hay không?. Nếu có thì xuất vị trí của số X trong mảng, ngược lại số X không có trong mảng.
Ví dụ:
| INPUT | OUTPUT |
|
Nhap so N = 5 13467, nhập X = 6 |
Vi tri cua X trong mang la: 4 |
|
Nhap so N = 3 345, nhập X = 1 |
X khong co trong mang |
➢ Bài 3: Tìm số: Viết chương trình nhập xâu s gồm có ít nhất 5 kí tự số. Hãy xóa bỏ một số kí tự trong xâu s và chỉ để lại 4 kí tự số sao cho vẫn giữ nguyên thứu tự của chúng và số đó có giá trị lớn nhất.
Dữ liệu vào: Từ tệp bai3.inp gồm 1 dòn chứa xâu s.
Dữ liệu ra: Ghi vào tệp bai3.out xâu s chứa 4 lí tự số còn lại tạo thành số lướn nhất.
Ví dụ:
| Bai3.inp | Bai3.out |
| 3011thiHSG2017 | 3217 |
| 2017abcDEF3011 | 7311 |
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,x,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
dem:=0;
for i:=1 to n do
if a[i]=x then inc(dem);
if dem=0 then writeln('X khong co trong mang')
else begin
write('Vi tri cua X trong mang la: ');
for i:=1 to n do
if a[i]=x then write(i:4);
end;
readln;
end.
Bài 3:
const fi='bai3.inp';
fo='bai3.out';
var f1,f2:text;
st,ln,kq,s:string;
k,d,i,vt,j:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
st:='';
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then st:=st+s[i];
k:=4;
kq:='';
repeat
k:=k-1;
d:=length(st);
vt:=d-k;
ln:=st[vt];
j:=vt;
for i:=vt downto 1 do
if ln<st[i] then
begin
ln:=st[i];
j:=i;
end;
kq:=kq+ln;
st:=copy(st,j+1,d-j);
until k=0;
writeln(f2,kq);
close(f1);
close(f2);
end.
