Một dãy số gồm N số nguyên được đánh số theo thứ tự từ 1 đến nn và được xếp thành một vòng tròn theo chiều kim đồng hồ.

Yêu cầu: Hãy tìm tổng lớn nhất của kk số liên tiếp nhau trong vòng tròn trên.

Dữ liệu vào

Dòng đầu tiên ghi hai số nguyên N và K (0< k < n ≤ 10⁵) cách nhau một dấu cách.

Dòng thứ hai ghi nn số nguyên trong dãy, mỗi số có giá trị tuyệt đối không vượt quá 1000. Giữa các số được ghi cách nhau một dấu cách.

Kết quả

Ghi một số nguyên duy nhất là tổng lớn nhất của K số liên tiếp nhau tìm được trong vòng tròn số.

Ví dụ: 
Input: 
5 3 10 2 3 5 7

Output: 22

Bài: Tấm Khiên
Hiệp sỹ Petrein đến làm khách ở Chúa tể Bóng đêm đã được vài tuần, được nghe về các kỳ tích hiển hách của vị Chúa tể trong những năm gần đây và hiểu rằng đã lâu lắm mình chưa lập một kỳ tích nào cả. Cùng nhau cân nhắc kỹ lưỡng bên chén trà, hai người thống nhất là Petrein phải đi giết con Rồng lửa đang tác oai tác quái phía tây của vương quốc.

Nhưng có hiệp sỹ nào lên đường mà không có giáp phục, giáo và khiên! Petrein hiện đang có 2 cái khiên hình tam giác, nhưng anh ta cho rằng như thế là chưa đủ. Khiên phải càng to càng tốt và anh ta quyết định giao cho thợ rèn làm khiên mới từ 2 khiên hiện có. Người thợ rèn của hoàng cung đề nghị hàn mép của hai khiên nối chúng thành một khiên duy nhất. Petrein nhận thấy dù có hàn cách nào diện tích khiên mới cũng không đổi. Vì vậy anh ta đề nghị hàn sao cho chu vi của khiên mới là nhỏ nhất để không phải tốn nhiều vàng làm đường viền cho khung. Cái khiên phải mang biểu tượng của gia tộc!

Cho 6 số nguyên dương a1, b1, c1 và a2, b2, c2 tương ứng là độ dài các cạnh của 2 khiên. Các độ dài có giá trị không vượt quá 105. Hãy xác định chu vi nhỏ nhất có thể nhận được.

Dữ liệu: Vào từ bàn phím 6 số nguyên a1, b1, c1, a2, b2 và c2.

Kết quả: Đưa ra màn hình một số nguyên là chu vi nhỏ nhất có thể nhận được.

Input: 
3 4 5 
6 7 8 

Output: 23

like anh Thịnh =)))))

Trên thanh paragragh

var i,j,k:longint;

begin

for i:=1 to 15 do 

  write('A');

writeln;

for j:=1 to 10 do 

  write('H');

writeln;

for k:=1 to 7 do 

  write('X');

readln;

end.

program FUTURE;

var n,dem:int64;

a:array[1..1000000] of int64;

i,j:longint;

kt:boolean; 

function KTSNT(n:int64):boolean;

var i:longint;

kt:boolean;

begin

if n < 2 then KTSNT := false 

else begin  

kt := true; 

for i:= 2 to trunc(sqrt(n)) do  

if n mod i = 0 then  

begin  

kt := false; 

break; 

end; 

if kt = true then KTSNT := true 

else KTSNT := false; 

end;

end; 

BEGIN 

readln(n);

for i := 1 to n do read(a[i]);

dem := 0;

for i := 1 to n do 

begin

 if KTSNT(a[i]) then continue

else if a[i] = 1 then continue

else 

begin 

kt := true;

for j := 2 to a[i]-1 do 

if a[i] mod j = 0 then 

if KTSNT(j) = false then 

begin 

kt := false;

break;

end;

end;

if kt = true then inc(dem);

end;

write(dem);

END.    

var n,k:int64;
    i,d:longint;
begin
        readln(n);
        k:=trunc(Sqrt(n));
        i:=2;
        res:=1;
        while i<=k do
        begin
                d:=0;
                while n mod i=0 do
                begin
                        write(i);
                        n:=n div i;
                        if n>1 then write('*');
                        inc(d);
                end;
                k:=trunc(sqrt(N));
                i:=i+1;
        end;
        if n>1 then write(n);
        readln;
end.

31 vòng lặp

program COST;

var n,m,s,dem:int64;a:

array[1..1000000] of int64;

i,j:longint;

begin 

readln(n,m);

for i := 1 to n do read(a[i]);

dem := 0;

for i := 1 to n do

begin

s := 0;

for j := i to n do 

begin 

s := s+a[j];

if s <= m then 

begin 

inc(dem);

continue;

end

else if a[j] > m then break;

end;

end;

write(dem);

end.