Viết chương trình tìm đoạn con dài nhất có tổng chia hết cho k (k nhập từ bàn phím, pascal )
2 câu trả lời
for i,1,n
begin
sum= 0;
for j,i,n
begin
sum = sum + a[j];
if (sum mod k=0)
if (j-i+1 > kq)
begin
kq=i-j+1;
st=i;
fi=j;
end;
end;
writeln('dodaicuadoan:',kq);
writeln('doandola:');
for i:=st to fi do write(a[i],' ');
Cho mình xin (5 sao + 1<3 + câu trả lời hay nhất) nha = ))
for i,1,n
begin
sum= 0;
for j,i,n
begin
sum = sum + a[j];
if (sum mod k=0)
if (j-i+1 > kq)
begin
kq=i-j+1;
st=i;
fi=j;
end;
end;
writeln('dodaicuadoan:',kq);
writeln('doandola:');
Câu hỏi trong lớp
Xem thêm
