viết chương trình pascal tách một số n thành 2 số a,b sao cho tích p=a*b^2 đạt cực đại với n được nhập từ bàn phím

0 bình luận về “viết chương trình pascal tách một số n thành 2 số a,b sao cho tích p=a*b^2 đạt cực đại với n được nhập từ bàn phím”

1. uses crt;
   var a,i,max: integer;
       maxa, maxb: integer;
   begin
        clrscr;
        write(‘Nhap n: ‘);
        readln(a);
        for i:=1 to a-1 do (*a*)
            if max < i * (a-i)*(a-i) then
            begin
                 max := i * (a-i)*(a-i);
                 maxa:= i;
                 maxb:= a-i;
            end;
        write(‘Ket qua: a = ‘,maxa,’; b= ‘,maxb,’. ‘);
        readln
   end.

   Bình luận