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 )

0 bình luận về “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 )”

1. 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:’);

   Bình luận

2. 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 = ))

   Bình luận