Cho dãy n số nguyên dương a1,a2,…,an. Một dãy con của dãy nói trên là dãy được lập từ dãy đã cho bằng cách bỏ đi một số số hạng của dãy và giữ nguyên trật tự các số còn lại. Hãy tìm một dãy con thỏa...
Type: Posts; User: lehang_gb1; Keyword(s):
Cho dãy n số nguyên dương a1,a2,…,an. Một dãy con của dãy nói trên là dãy được lập từ dãy đã cho bằng cách bỏ đi một số số hạng của dãy và giữ nguyên trật tự các số còn lại. Hãy tìm một dãy con thỏa...
Một tệp văn bản tên TRAIHE.DAT thể hiện sơ đồ bố trí các lều của một trại hè do các chi đoàn dựng trại nhân dịp chào mừng ngày 26 - 3. Mỗi lều có hình tam giác cân đỉnh hướng lên phía trên, các dòng...
{Sap xep nhanh Quick sort}
type mang=array[1..100] of integer;
Var A:mang;
i,N,x:integer;
procedure phandoan(l,r:integer);
Var i,j,x,w:integer;
Begin
x:=A[(l+r) div 2];
i:=l;j:=r;
Tính tổng của 2 số cực lớn(mỗi số không ít hơn 45 chữ số}
{hàm đệ quy tìm kiếm nhị phân}
{Tim kiem nhi phan bang de quy}
{Tim kiem nhi phan bang de quy}
Type mang=array[1..100] of integer;
Var t,i,N,dau,cuoi,k,cs:integer;
A:mang;
function...
{Tim kiem nhi phan bang de quy}
Type mang=array[1..100] of integer;
Var i,N,dau,cuoi,k:integer;
A:mang;
procedure tknp(Var A:mang;dau,cuoi,k:integer);
Var giua:integer;
Begin
...
Trông cách làm của bạn phức tạp thế, mình nghĩ đếm số từ thì đơn giản, cộng thêm dấu cách vào cuối xâu rồi kiểm tra từ đầu xâu đến cuối xâu, nếu S[i]<>' ' và S[i+1]=' ' thì tăng đếm.
Var S:string;...
{Nhap vao 1 xau, thong bao ra man hinh so luong cua xau
khong thuoc bang chu cai}
Var S:string;
i,d:integer;
Begin
write('Nhap vao 1 xau:'); Readln(S);
For i:=1 to length(S) do...
{Tim tu dai nhat trong chuoi}
Var f1,f2:text;
i,d:integer;
S1,S,max:string;
Begin
assign(f1,'dulieu.int');
Reset(f1);
Readln(f1,S);
assign(f2,'dulieu.out');
...
{bài 3 chuyển 1 số nguyên N sang số ở hệ nhị phân. Ta kết hợp với kiểu xâu}
{Doi 1 so nguyen N sang so nhi phan}
Var N,du:integer;S:string;
Begin
write('Nhap vao so nguyen duong N:');...