Cho dãy gồm : (n < 10000) số a1,a2,a3,...an. Hãy tìm dãy con liên tiếp dài
nhất có tổng bằng 0.(|ai|<10^9).
Ví dụ: dãy gồm 5 số 2, 1, -2, 3, -2 thì dãy con liên tiếp dài nhất có tổng bằng
0 là: 1, -2, 3, -2
Cho dãy gồm : (n < 10000) số a1,a2,a3,...an. Hãy tìm dãy con liên tiếp dài
nhất có tổng bằng 0.(|ai|<10^9).
Ví dụ: dãy gồm 5 số 2, 1, -2, 3, -2 thì dãy con liên tiếp dài nhất có tổng bằng
0 là: 1, -2, 3, -2
3.9. Cho : (n<= 10000) điểm trên mặt phẳng Oxy, ñiểm thứ i có tọa ñộ là
(xi,yi). Ta định nghĩa khoảng cách giữa 2 ñiểm P(xP, yP) và Q(xQ, yQ) bằng
|xp - xq| + |yp- yq|. Hãy tìm ñiểm f có tọa độ nguyên mà tổng khoảng
cách (theo cách ñịnh nghĩa trên) từ f tới N ñiểm đã cho là nhỏ nhất
(|xi|, |yi|...
Bài 2. Trò chơi với băng số (8 điểm) File bài làm DIV.PAS
Cho một băng số gồm n số nguyên dương, mỗi số được viết trên một ô. Hãy cắt băng số này thành nhiều đoạn nhất sao cho tổng các phần tử trong các đoạn là bằng nhau.
Dữ liệu vào: DIV.INP + Dòng đầu ghi n (n ≤ 1000)
+ Dòng tiếp theo ghi...
Cho hai số nguyên dương n,m có x, y chữ số ( 1<= x,y < 10000 )
yêu cầu tính tích của hai số n,m
Dữ liệu vào
dòng 1: ghi hai số x,y là số lượng chữ số của n,m, hai số cách nhau một dấu cách
dòng 2: ghi số nguyên n,
Dòng 3: ghi số nguyên m
dữ liệu ra
dòng 1: ghi số lượng chữ...
program Combination;
const
InputFile = 'SUBSET.INP'; OutputFile = 'SUBSET.OUT';
max = 30;
var
x: array[0..max] of Integer;
n, k: Integer;
f: Text;
procedure PrintResult; (*In ra tập con {x[1], x[2], ¼, x[k]}*)
var
i: Integer;
begin
Write(f, '{');
for i := 1 to k - 1 do Write(f...